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INTRODUCTION : 


L'informatique est devenue une véritable mode.Pourquoi ce phé- 
nomène est-il devenu soudain important dans nos sociétés indus- 
trialisées ? 

Il existe dans 12 région une usine de production de "puces". 
Elle est à Rousset et emploig déja plusieurs centaines de personnes. 
C'est un monde étrange.Dans cette provence si souriante ,vous 
trouverez un grand bâtiment rectangulaire,sans . fenêtre. 

On dirait une ruche plate.Avec une toute petite entrée. 

Ce qui rentre dans cette ruche,ce sont des cylindres de Silicium. 
Des monocristaux. Sous cetée Forme le Silicium ressemble à du verre. 
Il est débité en fins disques,d'une dizaine de centimètres de 
diamètre ,et épaisses d'une fraction de millimètre.Sur ces galettes, 
au prix d'opérations très sophistiquées,on va déposer une douzaine 
de couches ,alternances de conducteurs et d'isolants.Cet ensemble 
va lentement constituer soit un bloc mémoire,soit un microprocesseur. 

Des produits chimiques variés seront utilisés pour "doper" 
ces galettes de Silicium.Il y a de tout,y compris des produits 
hautement toxiques qu'il Faut manipuler avec les plus grandes 
précautions. | 

C'est là que se fabrique le ;’ingt et unième siècle. 

Les travailleurs de cette usine ont d'ailleurs de drôles d'allures. 


Ils ont des bottes,des blouses,des gants de caoutchouc,des cagouies. 
Les opérations les plus délicates se font dans des "salles blanches". 
C'est à dire des salles où règne une propreté absolue.Les reliefs 
créés font en effet moins du micron.Iil n'est donc pas question de 


laisser de minuscules poussières se déposer sur les disques pendant 
les opér2tions. 

On pénètre dans ces salles blanches après avoir subi ure douche 
| aux ultra sons. 

Quand les "puces" sont Ffabriquées,on les teste.Sur des bancs 
spéciaux.Il y a plusieurs centaines de puces sur chaque galette. 
Dans l'opération de test de minuscules aiguilles métalliques 
descendent et VWont griffer des petites zônes prévues à cet effet. 
Les circuits sont ainsi testé,les uns après les autres. 

Quaratte pour cent de ces puces seront reconnues défectueuses 
et marquées,à l'aide d'un point d'encre rouge. 
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Un peu plus loin les galettes seront sciées et les petites 


Puces ,qui ne font qu'une dizaine de millimètræarrés chacune, 
vont être collées sur des pavés de céramique noire.La puce reçoit 
alors ses "pattes". | 


NAR\RABIU 


Galette de 
Silicium 


Une puce sous le microscope. 


A l'extérieur les carrés de matière 
conductrice sur lesquels s'appuieront 
les aiguilles test. | 


L: puce est reliée à ses pattes.Une Fois le montage achevée 
sur certaines puces on peut encore apercevoir le petit carré 
de Silicium à travers unepetite fenêtre de quartz. 


Ce sont ces petits objets qui vont transformer nos vies. 


Ils vont devenir microprocesseurs,mémoites. 
Prix de revient à l'unité : QUELQUES FRANCS ! 


Tout est là.L'informatique n'est pas chère.Elle ne nécéssite 
pratiquement aucune matière première,elle ne consomme presque 
pas d'énergie. 

L2 révolution informatique va donc à contre courant vis à 
vis de l'évolution technologique classique.C'est pour cette 
raison que rien ne pourra l'arrèter. 

Avec ces puces on va fabriquer des ordinateurs.Des micro 


ordinateurs.Tout cela à nécéssité des investissements très 
importants.M=is le projet APPOLO en 2 supporté la plus grande 
part.C'est une retombée de cette conquête de la Lune.Tellement 
importante que chaque dollar dépensé pour mettre le pied sur 


notre satellite a déja rapporté aux pays hautement industrialisés 
de deux à trois dollars. | 

Cette industrie du micro otdinateur se développe comme une 
trainée de poudre. 

Qu'est-ce que c'est,un micro ordinateur ? 

Un boitier en plastique,une alimentation,un clavier.Un circuit 
imprimé qui recevra les "chips".Tout cela va être relié à une 
"visu" ,qui peut être une télévision du commerce, équipée d'une 
prise "PERITEL" qui est en train de devenir un standard. 

Les premiers micro ordinateurs largement diffusés furent les 
célèbres APPLE II,dont les performances sont telles qu'ils occuppent 
encore ( pour un temps ) le haut du pavé,offrant le meilleur 
rapport qualité prix. 

Il y a cinq ans ces machines pouvaient être acquises 
pour un prix se situant aux alentours de 15 000 F. 

Ajourd'hui ce prix est tombé à 7000 F.Où cela s'arrètera-t-il 9? 
Et d'abord,combien ça côute,un APPLE II en "sortie d'usine" 9? 


540 F ft!!! 


Inutile de dire que cette opération a été hautement profitable. 
Il ya cinq ans on vendagt la rangée de six chips constituant 


Un "bioc mémoire" près ée sept cent francs. Pas mal pour des 


objets qui,au prix de fabric2tion,côutaiëent moins de trente francs ! 
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L'évolution future est donc évidente : Les prix vont baisser, 
baisser. 

Ce cours est axé sur un matériel anglais : l1l'ORIC-1.Ces petites 
machines sont presque aussi performantes que les célèbres APPLE II 
en débit de leur présentation rustique.Elles onf 12 même capacité 
mémoire : 48 K utilisateur.Et elles valent à peine plus de 2000 F. 
Aujourd'hui.... 

Nous n'avons pas encore de matériels comparables en France. 
Tout simplement parce que les français n'avaient pas compris 
l'importance du marché.Les chaines de production de Thomson 
avaient été au départ dimensionnées pour 3000 machines. Celles 


de l'ORIC pour 300 000 !!! 


Ces micro ordinateurs doivent être reliés à une mémoire 
externe.En effet,lorgqu'on coupe l'alimentation électrique d'un 


APLLE ou d'un ORIC,toutes les informations contenues disparaissent. 
11 faut donc les recopier sur un support plus stable : une 
DISQUETTE. 

Une disquette,c'est un petit morceau de plastique,dans lequel 
l'information pourra être consignée magnétiquement,comme sur la 
bande d'un magnétophone. 

L'accès est beaucoup plus rapide que sur 1a bande.En effet 
dans le magnétophène l'écriture est linéaire.Pour aller chercher 
une information,il est parfois nécéssaire de dérouler laborieuse- 
ment toute la bande.Ce qui peut prendre beaucoup de temps. 

Drns la disquette,l'information est distribuée différemment. 
Selon des pistes ,avec un repérage selon la distance au centre 
et selon la position angulaire de la disquette : 


Je 


Voici le lecteur de disquette. 
I1 transforme complêtement le travail 
du miægro ordinateur. 


Que côute un lecteur de disquette ? 


Il y a cinq ans : 5000 F.Ce prix est en train debaisser.Les 
lecteurs de l'ORIC ne feront guère plus de 2000 F. 
Nous l'avons dit : l'Informatique proprement dite ne côute pas 


grand chose.Quelques centaines de fr2ncs.Ce qui limitera le baisse 
du prix de ces "drives" ,ce sera la partie mécanique. 

Mais,produits en grande série,ils ne côuteront pas plus que 
les classiques minicassettes. - | 

Que reste-t-i1 ? La "visu".Avec son écran fluorescent. 
On en trouve à moins de 900 F.Et ce prix baissera. 
Plus encore ,il faut s'attendre à l'émergence de nouveaux produits 
à base de cristaux liquides.Les écrans à cristaux seront bientôt 
sur le marché.produits en grande série,ils ne vaudront pas plus 
que quelques centaines de francs. 
+ Conclusion : sous peu,un ordinateur déja performant ,avec lequel 
on peut apprendre énormément de choses et sur lequel on peut 
travailler DES ANNEES avant d'en faire le tout,pour moins de mille 


francs,tout compris. 
Difficile d'éviter l'informatique dans ces conditions.... 
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L'INFORMATIQUE, POURQUOI FAIRE ? (x) 


L'informatique va donc envahir la planète.On trouve déja 
‘des puces un peu dans n'importe quoi.Dans les machines à laver, 
dans les téléphones,dans les automobiles,dans les jouets. 
Mais quid de l'implantation de micro ordinateurs dans les 
écoles,dans les facs,entre les maibs de simple quidams ? 


Un ordinateur est un ENSEMBLE qui peut être comparé à un 
MECCANCO. 

Lorsque vous étiez enfant,vous avez peut-être joué 2vec 
ces jouets là.Il y avait la boite numéro un,puis la deux... 
Pour construire un pont transbordeur,il fallait être d'une 
famille riche,car ces boites ont toujours été assez chères. 
Le MECCANO de l'informatique est essentiellement bon marché,et 
ce phénomène n'ira qu'en s'accentuant.A l'heure où les prix 
flambent,les prix des machines b2issent.Et,pour être plus précis, 
le rapport service offert sur prix croit à une vitesse folle. 

Même les professionnels ne sont plus capables d'exploiter 
les capacités des machines qui app2raissent sur le marché.C'est 
comme si,sur simple demande,on vous livrait un nombre inc2lculable 
de boites,d'un coup.On à même plus le temps de les ouvrir,ou de 
lire seulement les notices,que d'autres boites apparaissent. 

Considérons donc l'ordinateur comme une très belle boite de 
MECCANO.Que peut-on en faire ? 

Un jouet à microprocesseur ,um: - machine qui joue aux échecs, 
c'est l'objet "tout monté".C2 peut avoir son utilité. 

Mais vous savez très bien qu'un enfant qui manipule une petit 
robot à distance avec une télécommande, n'en deviendra pas plus 
intellident pour autant. | 

Ce sont les jouets "à monter soi-même" qui sont intéressants. 
Face à ces ordinateurs,qu'alons nous faire ? 
D'abord recencer les rou2ges,apprendre à enfiler les roues dentées 
sur les axes et à placer les axes sur les supports. Apprendre 
à utiliser des cames,des échappements,des courroies de transmission. 
Apprendre le maniement des moteurs,et de tous les gadgets ne 
bles ( et il y en à un sacré paquet dans un ordinateur ! 


Œ] Qu mm où | jeu, 9 Lyres Un Al À, hat 
Let dat de L'effinonnt de TEXAS TT dau E domau< 
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Un enfant qui ne commence pas par savoir comment serrer une vis 
et monter un écrèu,ne pourr? guère exploiter son jeu de MECCANO. 
Pour l'informatique c'est pareil.On ne peut percevoir l'intérêt 
du jeu que lorsqu'on à effectué un certain chemin. 


LE HARD ET LE SOFT 

Dans un jeu de MECCANO on trouve des éléments plus ou moins 
sophistiqués.CelAa va de la simple barre perforée,de la vis,au 
moteur électrique. 

Le moteur est évidemment quelquechose de plus élaboré. Il 
contient une mécanique ,un réducteur,des bobinages.On l'utilisera 
en général tel quel. 

Mais notre MECCANO peut aussi contenir des cellules 
photosensibles,ou des circuits imprimés ayant des fonctions bien 
définiés. 

11 y a donc une hiér2rchie d'objets. 

On peut,ceci.dit,très bien envisager un jeu dont le but soit 
précisément de monter soi même des moteurs électriques. Auquel 
cas l'objet sera livré en pièces détachées : fil pour bobinage 
contacts en cuivre, bal2is,etc.... 

Il en est de même pour un ordinateur. 


Il possède des rouages très élémentaires,qui sont les éléments 
constituant le microprocesseur .Nous appelerons ces objets des 


INSTRUICTIONS.Elles sont du type : 
mettre un dans la boite X,puis comparer au contenu de la boite Y. 
Si X est différent de Y 2lors.... 
EtC.soe 
Les boites du microprocesseur s'appellent des REGISTRES. Le micro 
processeur est "cablé" d'une certaine manière.On peut dire qu'à 
ce stade ( dit du langage machine }),le démontage s'arrète. 
Il n'est pas question d'env@syer les mains dans ces circuits de 
quelques microns,pour changer une connexion. 

. Ceci est une partie du HARD @e la machine.La quincaillerie 
comme diszntles anglo saxons. 
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L'ordinateur contient également une mémoire,qui a sa propre 
architecture. Elle fera aussi partie du HARD. 

Et le SOFT ? 
C'est la manière dont. dn va utiliser tout cela. 
Faisons une comparaison : 


Dans le jeu de MECCANO il y à un moteur,une cellule photoélectrique, 
un petit circuit logique.Ca,on ne L - démonte pas. 

Avec de teës éléments on peut construire des machines.Et la façon 
dont ces objets sont assemblés constitue le soft. 

Donc,c'est clair.Vous pouvez faire tout votre soft vous même. 

De A à Z.Rouages par rouages.Mais vous pourrez aussi utiliser des 
ensembles déja assemblés. 

or que dans Vo re jeu de Meccano vous vouliez faire inter 
venir un! ltemps mécanique, en incluant dans votre machine un réveil. 
Ure horloge à balancier ou à ressort. : 

On peut monter soit-même l'horloge.M2is si cette horloge n'est 
pas en soi très intéressante,on peut l'ächeter "toute Faite" et 
l'inclure dans le système. | 

Un ordinateur est donc susceptible de recevoir du "soft. 

Les ordinateurs APPLE II sont multilangages.Il en est de même 
pour les ORIC ( pour le moment ilsne savent parler que le BASIC ): 
On peut les structurer de mille manières.Leur donner une sorte 


de préstructure appelée LANGAGE de programmation. 

Ceci se présente sous 1: forme d'informations présentes dans 
une disquette.On fait "lire" cette disquette par l'ordinateur,et 
l'information est transfèrée dans ses intérieurs.Cela prend quelques 
secondes. 

Au dessus de cette architecture du microprocesseur et de 1a 
mémoire ,qu'on ne peut toucher,va se superposer une autre 2rchitectu 
re,plus élaborée,plus accessible et moins laborieuse.Eÿ c'est à 
ce niveau que nous allons travailler. 

On voit donc que l'ordinateur est comme les poupées russes. 

Au centre il existe un noyau fina1l,indémontable.Le microprocesseur. 
Mais,autout,s'articulent des niveaux,en coughes concentriques. 
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Imaginez que vous soyiez un milliardaire en promenade dans 
son yacht. 

Vous dites à votre capitaine : amenez moi dans le port de 
Saint Tropez...... 

Le capitaine se tourne vers son interphone ( c'est un très très 
gros yacht ) et dit: 

Gouvernez au 220,machines sur un demi. 

En bas le _. chef des machines dit à ses mécaniciens : 


Mettez moi la turbine II sur 7000 tours,quatre à l'admission. 
Coupez le réchauffeur. 


Trois niveaux de langage. 
On peut imaginer un amiral déployant toute une flotte.D'où un 
niveau encore supérieur. 

Dans l'ordinateur ,on peut se ballader à tous les étages. 
Intervenir directement au niveau des machines ( langage machine }) 
ou utiliser un soft tout prêt pour faire de la synthèse musicale. 
AU choix..... 


QUEL PROFIT TIRER DU MANIEMENT D'UN ORDINATEUR ? 


Alors là,c'est simple : ça dépend entièrement de vous. 
Quand vous connaitrez tous les rouages de la boite,et qu'on vous 
aura montré quelques exemples de montages,cel2 sera à vous de jouer. 
Vous pourrez choisir de recopier des montages inventés par d'autres 
ou vous contenter d'en utiliser d'autres,sans trop chercher à 
approfondir. 

L'ordinateur vous servira alors à classer des objets,à les 
trier extrêmement rapidement,ou à mieux jouer aux échecs,ou 
à dessiner en perspective. 


Mais le profit le plus importent me semble être 2illeurs. 
L'ordinateur vous Force à réfléchir sur votre propre langage,sur 
votre propre pensée. 
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Il va vous contraindre à élaborer des démarches LOGIQUES. 
Ceci dit,on peut le considérer comme une sorte de prothèse 
intellectuelle. 
Le mot vous chgque ? 
Qu'est-ce que l'écriture,sinon une MEMOIRE EXTERNE ? Qui décharge 
votre cerveau de tout un fatras de connaissances.Que seraient 
les hommes sans leurs livres ? 
L'ordinateur est capable de prendre en charge des bfibes de pensée 
On peut,grâiée à lui,réaliser de véritables expériences,déployer 
un nombre fantastique de possibles.On peut aussi voit apparaitre 
quelquechose auquel on aurait jamais pensé.C'est une aide à 12 
création. 1 

En programm=nt un ordinateur,vous l'entichissez.MAais en 
faisant l'effort de le programmer,vous VOUS enrichissez. 

L'ordinateur est déj: indissociable de l'enseignement des 


sciences.Dans quelques Années les livres de physique seront 


diffusés, avec leur disquette,qui permettra de voir s'animer 
les formules. 

Il est prévu d'introduire également l'ordinateur dans l'ensei- 
gnement des lettres.Comme dans les enseignements artistiques. 
Il y à un an ou plus,je faisais une conférence dans l'école des 
beaux arts d'Aix en Provence. 

Un vieux prof se leva: 
- n'allez pas me dire quel'ordinateur remplacera un jour l'artiste 
Diable,je n'étais pas venu pour cel?.]Je voukAais seulement avertir 
ces braves gens que dans peu d'années ils pourraient jouer avec 
des ordinateurs comme avec une palette et des tubes de couleur. 
Et qu'un jour même,à trvers des hologrammes de synthèse ils 
pourront sculpter des objets immatériels,au laser, des formes 
folles,comme jamais la main de l'homme nepourr? en créer ,et qui 
ne seront faites que de lumière. 


L'ordinateur ne remplacera pas non plus le musicien.Mais il 
y aura une autre espèce de musiciens.Qui jouera avec les formes 


sonores. 
Ce n'est pas ma Faute si les informaticiens ne sont pas des 


artistes,et si les "toiles" qu'ils inventent sur leurs bécanes 


sont des croutes. 
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En inventant le burin,le vernis,l'acide et le cuivre,on créait 
la gravure.Mais le talent n'était pas fourni avec. 


Voilà. 
Au delà de tout cela,un aspect à bien méditer : si vous apprenez 
à vous servir de tous les rouages,parfaitement,et si vous n'avez 
pas un minimum d'idée,d'imagination,vous passérez à côté de la 
plaque. Comme avec le MECCANCO. 

L'informatique est exigente.Il ne suffit pas de savoir visser 
des boulons.Un jour,vous dégouvrez que,sans idées,;vous tourner 
en rond. Alors,tichez d'en avoir..... 


Notre but est de mettre en circulation des documents pédagogiques 
qui puissent vous donner le plus d'autonomie possible.Il y a des 
gens qui ne pourront pas bénéficier d'un enseignement magistral. 


11 devfont se dép2touiller avec ce polycopié. 
Première ch9se : si vous le pouvez,achetez vous une machine 


personnelle. 

L'ORIC-1 est ( en 1983 ) ce qui offre le meilleur rapport 
qualité prix.Ill vaut un peu plus de 2000 F. 
Il est équipé c'une prise PERITEL : 


Si votre téléviseur est récent ÉXAzIrXEMXKEMIEUxX vous pourrez 
envisager de brancher directement votre ordinateur dessus. 


RE 


Sinon il est possible de modifier légèrement la sortie de 
l'ORIC pour faire en sorte qu'il puisse attaquer directement 
l'antenne d'un téléviseur quelconque ( noir ou vouleur }).L'image 
sera seulement un peu moins bènne. 

Cette opération peut être négociée à Marseille à 


ASN DIFFUSION,20 rue VITALIS. Téléphone (91) 94-15-92 


Demandez monsieur TAILLEZ,et venez avec ce cours.En prèncipe il 
vous fera "un prix". 


Puuwvy Si vous n'avez pas de téléviseur avec prise PERITEL, 
sachez qu'il existe mainten=nt es téléviseurs couleurs pour 
2500 F. 

Enfin,en attendant de doter l'ORIC d'un lecteur .de disquettes 

( valant lui aussi un peu plus de 2000 F ) vous pourrez utilise: 
pour le stockage externe un simple minicassette. | 


Détails merc2ntiles,mais qui pourront aiguiller utilement 
les gens qui ont décidé (et qui ont les moyens ) d'acheter 
un ordinateur. 


Autre chose : Sous une forme plus attrayante et vulgarisée,le 
pendant BD de ce cours,chez CEDIC-NATHAN: 
L'INFORMATIQUE PREMIER CONTACT et INFORMATIQUE ET LOGOTRONIQUE . (> 


Maintenant allons y. 


CE) Qu veuf pra lune A 2h MÂLE fn A 
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PREMIER CONTACT AVEC L'ORIC-1 


Vous êtes peut-être dans la salle du libre service de 1a 
fac.Alors,tout est branché et vous n'aurez qu'à actionner l'interru- 
pteur. 


Si vous êtes chez wous,et que tout est en vrac,voyons ce 
qu'il Faut Faire. 
L'®RQC à un certain nombre de sortie,sur sa face arrière. 


\ < 
” alu fa ca PARA 
Video Wu 
dur, vrpra e. 
Il est livré en France avec une attaque d'antenne en système PAL 
( anglais ).Vous ne pourrez vous en servir que si l'appareil 
a subi la modification,chez ASN. 
A droite le branchement de l'alimentation. 
Egalement visibles,les prises pour les broches PERITEL et magneto. 


18 


ORIC-1 48 K 


télé avec 
PERITEL 


=, 17 
RCA er 


Magneto M / ( 
: G / ? 7) 
à compteur si 77. HA ) 


Alimentations du magnéto CEST OTR 


et de l'Oric 


Voici l'ensemble branché. 


Mettez sous tension. 
Pendant quelques secondes vous voyez s'inscrire sur l'écr2n une 
constellation de carrés et de barres blanches horizontales.C'est 


normal. L'ORIC travaille.Il effectue des chargements des transfetts 


internes.Ceci achevé,vous voyez apparaitre 


16 1 D Le 
M EM ons 
ORIC EXTENDED BASIC V1.9 : VE | 
C 1983 TANGERINE Fete # . JE 
, sec | 


47879 BYTES FREE £ 


Ready œp 


Cela signifie que notre ORIC parle le "basic étendu" et que sa 
mémoire utilisateur laisse 47870 "bytes" libres. 


ALLONS-Y: 


Voilà votre première instruction.Il faut composer les lettres 
C L S au clavier.Le message est ainsi constitué.Mais l'ordin2teur 


ne fait rien.Le message n'a pas encore été "envoyé". 
Pour ce Faire il suffit de presser sur la touche RETURN. 
Et l'écran est effacé. 

CLS : Clear screen ( nettoyer l'écran en anglais ). 
Maintenant,sut votre écran 


Ready et le "curseur" clignotant. 


L'absence de curseur peut être un signe de disfonctionnement. 
Si cela se produit ,geste simple : débranchez l'aliment2tion de 
l'ORIC ( ou si vous êtes en salle éteignez l'interrurmeur }). 
Normalement vous devez retrouver la séquence du début. 


” Dans la marine,on donne d'abord les ordres,puis,on 
déclenche leur exécution.Exemple 


- A mollir la balancüne ! 

- Paré... 

- Envoyez ! 

Evidemment on ne mollit la balancine que lorsque on entend 

le mot "envoyez",sinnn,ça peut être une catastrophe.Si la voile 
n£st pas bien étarquée,l2 baume peut aller assommer le capitaine. 
SI VOUS AVEZ UN ORIC AVEC UNE TELE OU UN MONITEUR COULEUR 
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PAPER INK 


Ces instructions permettent de changer la couleur du "papier" 


et de “l'encre. 


. Exemple PAPER3 ( et évidemment presser sur la touche return ) 
INK6 ( id ) 
A partir de maintenant nous omettrons de présiser cette pression 
de la touche return en Fin de messake. 
n 
Il y à Sept couleurs possibles: 
NOIR 
ROUGE 
VERT 


(e) 

1 

2 

3 JAUNE 

4 BLEU 

5 MAGENTA 
6 CYAN 

7 BLANC 


Je vous laisse vous anuser cinq minutes avec ce jeu des couleurs. 


Et nous allons passer à un chapitre important. 
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MÉMOIRE 
REGISTRES 


Pour nous,un ordinateur sera assimilé à un paquet de fiches 
rangées dans une bôite.Nous appelerons ce fichier 12 MEMOIRE. 
Chaque carte sera une case mémoire ,vierge.Si nous voulons consi- 
gner une information dans cetée série de carte il est bon de 
prévoir un système de repérage. 


On appelera ce système de repérage une ADRESSE. 


On peut faire deux types de repérages: avec des lettres de 
l'alphabet ou avec des numéros : 


OÙ 


Dans le langage BASIC ces repèrages correspondent à deux 
utilisations vien différentes. 
Nous allos d'abord consigner des données numériques. Par exemple 
des nombres entiers.Et nous utiliserons un repérage à l'Aide 
de lettres. 
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Voici par exemple une des cartes sur laquelle j'ai mis le chiffre 
trois,qui est la quantité numérique à stocker.Et dans le coin 


en haut et à gauche,j'ai mis la lettre C. 
Ceci signifiant : 
Mettre 3 dans C. 
Ce faisant j'ai créé un REGISTRE NUMERIQUE C. 
Imaginons deux personnes.L'une est l'utilisateur de la machine 
et l'autre l'INTERPRETEUR BASIC. C'est à dire use sorte de diable 


qui loge dans 12 machine et qui est censé comprendre les ordres 
que vous lui donnez : 


I p 


\ 


Son nom est MEGABIT et vous le retrouverez 
si vous avez envie de vous détendre un peu,dans l'album 


L'INFORMAGIQUE ,aux éditions BELIN ( auteur:votre servitéür ). 


Eb langage BASIC ( le seul que comprenne MEGABIT }),pour créer 
unrregistre C et y mettre la valeur 3 on composera 


C = 3 


Bien... on peut aussi inscrire des valeurs négatives: 


=-8 


On réalise ainsi des opérations D'ECRITURE EN HEHOiRE 


PRINT 


L 


L'opération inverse est la LECTURE .… 


On va interroger la mémoire pour savoir ce qui se trouve dans 
ces registres C et A.Et on effectuera ce questionnement à l'aide 
de l'ordre PRINT 


Composons PRINTA 

Le contenu apparait. 

Même chose si on compose ?A ( qu'y-a-t-i1 dans À ?) 

Comment effacer le contenu d'un registre ? Il suffit de le 
remettre à Zzéro.En composant A=9 

Il existe une possibilité de remettre tous les registres mémoire 
à Zéro d'un coup 


CLEAR 
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SYN TAXE 


MESSAGES 
D'ERREUR 


L'ordinateur est capable d'avaler des nombres décim2ux. 


Composons 
Z= 5,16 


Apparait : 

?SYNTAX ERROR 

Erreur de syntaxe.Le dialogue avec l'ordinateur est lié avec 
le respect d'une syntaxe parfaitement rigide.L= virgule est 
un sybole Français liée aux nombres décimaux.Or cet ordinateur 
est anglais.... 


Donc il ne comprendra que l'ordre: 


Z=5. 16 


A chaquefois que vous ferez une bêtise,la machine réagir: en 
affichant un message d'erreur. 

MODE DE REPERAGE DES REGISTRES NUMERIQUES: 

On peut utiliser deux lettres,ou une combinaison d'une lettre 


et d'un chiffre.Exemples 
RS = 23 
Mais vous pouvez écrire 


RAYON = 17 
t interrèger la mamoire en composant 


[es 


2RAYON 
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Mais seules les deux premières lettres seront prises en compte. 
Faites l'essai en composant 


?RADIS 


Vous parvenez au même résult2t.1ll faut donc faire attention. 


On cite le cas d'un importateur en matériaux de construction,qui 


s'étant adressé à une coopérative,avait commandé par ordinateur des 
tomettes,s'étiit vu livrer des.... tomates ! 


AUTRE PRECISION SUR LE ZERO. 

Sur votre clavier vous avez une touche O.C'est le "O" de l'alphabet. 
Le zéro est ailleurs,à la suite du neuf.Il est barré.C'est le 

zéro des informaticiens occidentaux. 


CHAINES DE 
CARACTERES 


Dans 12 MEMOIRE de l'ordinateur,on peut stocker ce qu'on appelera 
des chaines de car2ctères.Tout ce qui figure sur l'écran est un 
ensemble de caratères.A chaque fois que vous pressez sur une touche, 


d'ailleurs,vous envoyez un ordre élémentaire qui est précisément 

un Ccaractère,qui est stocké dans unemémoire d'attente.C'est seulement 
lorsque vous pressez sur RETURN que l'ensemble de caratères est 
INTERPREITE ,et le message accepté ou rejeté selon que vous aurez ou 
ñon respecté la SYNTAXE. 


Si Vous tapez TR- 
au moment de l'interprètation du message,l'ordinateur saura que 
vous voulez créer un REGISTRE NUMERIQUE.MEGABIT va donc tirer une 
fiche écrire dessus TR,et lire la suite du message. 


“01 


Si on désire stocker des chaines de caractères on devra Faire 
suivre le repérage du registre de donnée du signe $ x 
C2 ressemble au signe DOLLAR,mais cela vient de STRING,qui 
veut dire chaine. 
Je pourrai donc composer: 


N $ = "AR(87; 58+" 


Et si j'interroge ma mémoire en faisant 
[2N $ 


Je verrai apparaitre AR(87; $$+ 


C'est à dire ma suite de caractères. 


Petite précision : certains caractères sont obtenus comme les 
majuscules d'une machine à écrire.Par exemple ce signe $,qui est 
au dessus du 4. 
Si on presse directement sur la touche 4 on obtient bêteñent un 
quatre.Mais si on presse au préalable sur la touche SHIFT ( qu'on 
doit alors tenir pressée ) et qu'on refait la même opération,on 
verra apparaitre $ sur l'écran . | 

Il est évident que si on peut stocker des chaines de caractères 
quelconques,on peut aussi stocker : 


N $ = "CERISE" 


Mais l'ordinateur ne fait pas la différence entre un nom cohérent 
et une suite quelconque de car-tères. 


Il existe un programme amusant nâmmé ELIZA,qui tente d'analyser 
vos messages,en jouant le rôle d'un psychanalyste. 
Si aw lieu de message,vous laissez votre chat se bAallader un 


instant sur le clavier,puis que vous pressiez sur la touche Return, 
l'ordinateur répondra : 


JE NE SUIS PAS SUR DE TRES BIEN VOUS COMPRENDRE 
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Vous avez aussi remarqué que la chaine de caratère était 
entourée par des guillemets.C'est impér2tif.Des opérations 


comme : 


BN $ = ALQERT 
N1$=" ALBERT 


G$=ALBERT" 
NG="ALBERT" 


Sont illicites et Éébouderdnt sur un message d'erreur. 


Ilfaut impérativement respecter la SYNATXE $ ZUT.... ) 


LA NOTION 
DE PROGRAMME 


Nous avons’ commencé,avec notre jeu de MECCANO,et nous apprenons 
lentement à monter quelques pièces.Cette mise en mémoire et cette 
lecture est aussi fastidieuse que de visser des écrous. 

Un ordinateur est obligatoirement autre chose que cet ensemble 
de crtes-registres. 

On va opérer sur ces données à l'aide d'un PROGRAMME.MAis 
qu'est-ce qu'un programme ? 
Prenons une machine à laver.Avec un seul progr2mme.O0h à une 
molette qu'on tourhe,qui arme une minuterie.Les opér2tions de la 


séquence de lavage sont les suivantes : 


2% 


METTRE DE L'EAU DANS LE TAMBOUR 

ALLER PRELEVER LA LESSIVE DANS LE CASIER 
PORTER L'EAU 4 50° 

METTRE EN ROTATION PENDANT 10 minutes. 
VIDER L'EAU DU TAMBOUR 

ESSORER 

STOP 


SN Oo U 5 © D — 


Ces ordres élémentaires.sont par exemple inscrits sur un disque. 


Le dessin montre le programme en cours d'éxécution. Sur le plot 7 
la machine s'arrètera d'elle même. 


Sur ce type de machine on peut faire exécuter partiellement les 
programmes.Par exemple en remettant le disque surla position 6 
on obtiendra seulement un essdrage. 


Passons à l'ordinateur.Prenons une pile de cartes dans 
la "boite" mémoire et écrivons non plus des lettres de repérage 


de registres,dans le coin haut et gAuche,mais des numéros d'ordres 
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S 
7 2 


7e 
Ag. Cu 
en. 


« 
#, 


Bien sûr,tel quel,notre ORIC ne sait pas laver le linge.Il lui 
faudrait une interface ad hoc.Donc les ordres présents sur ces 
c?rtes sont des erreurs de syntaxe. 


Pour que ç2 ne coince pas,remplaçons les par des ordres 
PRINT. 


4 


PRINT “METTRE 
CAU DANS TAMBOUR * 0 : 


Dans ce modèle ,cette suite de cartes constitue un modèle de 


programme. 


07 


Si je me mets maintenant à côté de MEGABIT et que je dis 


- Allez ! 
Il va prendre les cartes les unes après les autres et effectuer 


la tâche qui est dessus. 
En BASIC on déclenche $'éxécution du programme en composant 


RUN <= 


Comment "entrer" le programme dahs l'ordinateur ? 


Il suffit de composer les "lignes programme" : 


PRINT"METTRE DE L'EAU DANS LE TAMBOUR" 
PRINTMALLER PRELEVER LESSIVE DANS CASIER" 
PRINTMPORTER EAU A 50 DEGRES" 
PRINTMMETTRE EN ROTATION DIX MINUTES" 
PRINT"VIDER EAU TAMBOUR" 


UT HR GC D  — 


PRINT"ESSORER" 
END 


9 ao 


Puis on fait RUN et on voit apparaitre : 


METTRE DE L'EAU DANS TAMBOUR 

ALLER PRELEVER LESSIVE DANS CASIER 
PORTER EAU A CINQUANTE DEGRES 
METTRE EN ROTATION DIS MINUTES, 
VIDER TAMBOUR. 


Le programme a été exécuté. 

Comme tout à l'heure on peut réaliser des exécutions partielles 
en composant par exemple RUN4,auquel cas le programme débutera 
à la ligne quatre. 


Vius connaissez l'instruction CLS ( effaçcage écran ).On aurait 
bien aimé 2joutet cette instruction au programme.Hélas il n'y 
a plus de place... 


Pour permettre cette éventuelle modification d'un programme 

on s'habituera à taper de dix en dix.Ceci dit,ç2 ne prend pas 

plus de place en mémoire.C?r MEGABIT opère au débart sur des cartes 
vierges. 

Au préalable nous allons effacer le programme précédent.Pour ce 


faire nous utiliserons l'ordre ; 


qui veut dire neuf.Prêt pour un 
second programme. 


19 PRINT"METTRE EAU DANS TAMBOUR" 
29 PRINT"ALLER PRELEVER LESSIVE DANS CASIER" 
39 PRIN?" PORTER EAU A CINQUANTE DEGRES" 
49 PRINT"METTRE EN ROTATION DIX MINUTES" 
5d PRINT"VIDER EAU TAMBOUR" 
69 PRINT"ESSORER" 
7H END 


Ah...zut,j'ai encore oublié cette instruction CLS ! 


Qu'à cela ne tienne, je vais l'INSERER dans le programme en composant: 
5 CLS 

Vous vous dites peut-être : "ça n'est pas en ordre".On va vérifier. 
Nous Allons "lire" le programme à l'aide de l'ordre 


LIST 


Faites manuellement CLS.L'écran se vide. 
Puis faites LIST,hop! le programme réapparait et l'insertion 


NR : Paix mot fran LAB Ligre LAB R , lep - La 
RAY malo. Fra Co 
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L'Instruction LIST peut permettre d'afficher une ligne 

unique. 

Exemple,faites LIST 29 

La ligne 29 apparait. 

Comment faire pour supprimer une ligne ? 

Par exemple la ligne 39. 

Vous tapez simplement 39 et Return.C'est à dire une ligne "vider. 
Et le tour est joué. 


LIST -3$ 


édite le progr2mme sur l'écran de son début à la ligne 34 comprise 


[ST 28 — 


Edite le programme àpñrtir de la ligne indiquée 


IST 38-59 


Edite sur l'écran le programme de la ligne 39 à 12 ligne 59, 


toutes deux incluses. 


s30> 


L'instruction END arrète l'exécution du programme. Vous pouvez 
le vérifier en l'incluant,en l'insèrant n'importe où dans le 
programme précédent. 

Ceci permet de consigner plusieurs programmes dans 1: mémoire. 
Reprenohs ce parllèle avec le thème de 12 machine à laver. 
Faisons NEW pour effacer toute trace du proframme précédent et 


écrivons : 

249 REM LINGE SALE 

219 PRINT"REMPLIR LE TAMBOUR D'EAU" 

229 PRINT"ALLER CHERCHER LESSIVE DANS LE CASIER" 
239 PRINT"PORTER L'EAU A SOIXANTE DEG2ES" | 
249 PRINT"TOURNER TAMBOUR PENDANT TRENTE MINUTES" 
259 PRINT"VIDER EAU" 

269 PRINT"REMPLIR DE NOUVEAU TAMBOUR" 

279 PRINT"TOURNER CINQ MINUTES" 

279 PRINT"VIDER TAMBOUR" 

2849 PRINT"TOURNER TAMBOUR PENDANT CINQ MINUTES" 
29$ END 

329 REM LINGE TRES SALE 

319 PRINT" RZMPLIR LE TAMBOUR D'EAU" 


329 PRINT"LLER CHERCHER LESSIVE DANS CASIER" 
332 PRINT"PORTER L'EAU A QUATRE VINGT DEGRE" 
349 PRINT"TOURNER PENDANT TRENTE MINUTES" 
359 PRINT"VIDER EAU" 


369 PRINT"REMPLIR DE NOUVEAU TAMBOUR" 
379 PRINT"TOURNER CINQ MINUTES" 

382 PRINT"VIDER TAMBOUR" 

392 PRINT"REMPLIR TAMBOUR" 

aff PRINT"TOURNER CINQ MINUTES" 

419 PRINT"VIDER TAMEOUR" 

429 PRINT"REMPLIR TAMBOUR" 


UE 


434 PRINT"TOURNER CINQ MINUTES" 
449 PRINT"VIDER TAMBOUR" 
459 PRINT"REMPLIR TAMBOUR" 


469 PRINT"TOURNER CINQ MINUTES" 


47$ PRINT"VIDER TAMBOUR" 
489 PRINT"TOURNER CINQ MINUTES" 
499 END 


599 REM LINGE DELICAT 

519 PRINT"REMPLIR TAMBOUR" 

529 PRINT"ALLER CHERCHER LESSIVE DANS CASIER" 
539 PRINT"PORTER L'EAU A QUARANTE DEGRES" 

549 PRINT"TOURNER DIX MINUTES" 

559 PRINT"VIDER TAMBOUR" 

569 PRINT'TOURNER CINQ MINUTES" 

57f END 


En composant RUN 299 ou RUN 398 ou RUN 549 on "2ppeler:" trois 
programmes dif£férents,corresponsant chacun à une tfche différente. 


Nous allons perfectionner ce programme. 


PROGRAMME 
AUEC ENTREÉE 
DE DONNÉES. 


Nous allons créer un programme à options. 
ECRIVONS 

5 CLS 

19 PRINT"1-— LINGE SALE" 

29 PRINT'"2-LINGE TRES SALE" 

39 PRINT"3-LINGE DELICATN 


4 INPUT VOTRE CHOIX "5 C 


INPUT 


Cette instruction arrète le cours du programme.Un questionnement 
est effectué. 
Attention à la syntaxe ! Après l'ordre INPUT,1a question posée 
doit Ffugurer entre guillemets.Puis il faut mettre un POINT VIRGULE. 
E, enfin indiquer le registre ( ici ) numérique,où 1a réponse 
doit être placée. 
Quand un orëre INPUT est présent dans un programme ,MEGABIT 


s'arrète,ouvre un tiroir ,ou prend une fiche vierge sur laquelle 


Î1 inscrit ici C et attend là répènse. 
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Placez provisoirement une ligne 
45 END 
Qui stoppera le programme à ce stade d'exécution. Puis faites RUN. 


APPARAIT : 
VOTRE CH X ? @ 


Vous pouvez alors donner votre réponse ( soit 1 soit 2 soit 3 }). 
La ligne 45 termine l'exécution du programme. 
Faites alors 2 C 


On voit apparaitre le contenu du registre C. 
MEGABIT à donc bien fait son travail,c'est à dire créé ce registre 


et mis la valeur donnée dedans. 


RANCHEME NT 
ONDITIONWE L 


Comment se servir de cette donnée C pour orienter l'éxécution ? 
Supprimons d'abord la ligne 45,provisoire. 
Ecrivons 


: L] 
5 IF C = 1 THEN 299 niet 
éd IF C=2 THEN 309 
79 IF C=3 THEN 59 ee. 
8@ PRINT"ERREUR,REPONDEZ 1,2 ou 3 ! " 


98 GOTO 49 


La ligne 50 signifie 


SI C est ég21 à 1 ALORS Allez à la ligne 2fÿ 


La ligne 69 : SI C = 2 ALORS ALLER EN LIGNE 399 
etc... 
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Que se passe-t-il si la réponse donnée n'est ni 1 ni 2 ni 3. 

La structure de ce programme permet de lever cette ambiguité. 
En effet si aucun des trois tests successifs n'est satisfait 

les lignes 89 et % sont eXécutées.La ligne 80 précise qu'une 
erreur a été commise.La ligne 99 représente un 


BRANCHEMENT 
INCONDITIONNEL 
GOTO 


( dansl'exemple Aller en ligne 40,c'est 
à dire reformuler 12 question Ys 


Tant que la réponse fournie ne correspondra pas à ce qui est 
ainsi imposé,l'ordinateur,sans se lasser ,reformuler sa question. 
Nous avons dans ce programme utilisé une instruction-gadget, 
l'instruction 


299 REM LINGE SALE EN 


L'instruction REM permet de consigner des informations repères 
dans les progrzmmes.Quand une telle ligne est "effectuée" rien ne 
Sa passe.Cela "compte pour du beurre'".Cette information n'apparait 


que lorsqu'on utilise l'instruction LIST ,lorsqu'on £fAait un LISTING. 


Mais ce gadget est bien commode pour pouvoir s'y retrouvr. 


sr 


Ce programme de lavage de linge n'est pas spécialement excitant. 
Mais j'ai choisi cet exemple pour quel'on garde bien en tête 
que l'ordinateur effectue des TACHES. 


SOUS FROGKAM 


L'informatique implique un souci constant d'ECONOMIE. 
Dans le programme de la page 30 on constate que des opérations 
reviennent plusieurs fois: REMPLIR LE TAMBOUR D'EAU,TOURNER 
CINQ MINUTES etc... 

Un système de SOUS-PROGRAMMarmet d'éviter cette Ffastidieuse 
réécriture. 
Considérons la têche: 

PRINT"TOURNER CINQ MINUTES" 


Qui revient de nombreuses fois. 
Ecrivons : 
1999 2EM ROTATION DU TAMBOUR 


1914" PRINT"TOURNER CINQ MINUTES" 
1999 RETURN 


Dans le programme ,à chaque fois que nous rencontrerons 12 tîche 
TOURNER CINQ MINUTES nous la remplacerôns par 


OSUB 


Concrètement ,on écrir?: 
270 GOSUB 1990 


409 GOSUB 1999 
439 GOSUB 1909 
469 GOSUB 1999 


489 GOSUB 1949 
560 BOSUB 1267 
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A chaque Fois que cet ordre GOSUB sera rencontré,il y aura 

APPEL DU SOUS PROGRAMME CORRESPONDANT. Le cours du programme 
sera suspendu et MEGABIT,toutes affaires cessantes,s'en irà 
effectuer la sous-tâche décrite dans le sous programme. 


ATTENTION ! UN 
SOUS -PROEFRAMME 
PEUT EN APPELER 
UN AUTRE … 


Le sous programme est l'$me de l'informatique.En fait TOUT est 

sous programme.Le travail du programmeur consiste à dég2ger sans 
cesse son PROGRAMME PRINCIPAL en renvoyant des tfches qui 2pparaissen 
annexes dans des sous programmes. 


EFFfaçons notre programme à l'aide de NEW et reprenons 
tout cel: à zéro. 
Ces différents programmes de lavage,finalement ,ce sont des 
sous programmes. 
Nous allons réécrire notre programme MENU 


5 CLS 

19 PRINT"LAVAGE DE VOTRE LINGE" 
29 PRINT"1-SALE" 

34 PRINT"2-TRES SALE" 

4ÿ PRINT"3-DELICAT" 

SÂ INPUT"VOTRE CHOIX ";C 


47: 


N... GOSUB 


66 ON © GOSUB 1209,2699, Fe 


79 END 


L2 ligne soixante signifie 
SI C=1 effectuer le sous programme 1449 
Si C=2 ffectuer le sous programme 2299 
si .C=3 effectuer le sous programme 3299 
On peut en mettre autant qu'on en veut,ou presque... 
Ce Faisant ,on ne traite pas le cas où l'utilisateur aurait 
la mauvaise idée de répondre par autre chose que 1,2,3.... 
Mais ne compliquons pas. 


A ce stade on écrira : 


1490 REM LINGE SALE 

1999 RETURN 

2492 REM LINGE TRES SALE 

2999 RETURN 

34928 REM LINGE DELICAT 

3999 RETURN 

La structure de notre programme est en place.Pour le moment ces 
sous programmes sont vides.Mais Ça n'a pas d'importance;nous les 
remplirons plus tard. 


C'est une Façon de travailler ,une habitude à prendre. 
Ces strutures avec programme MENU et appel de sous programmes 
sont très classiques.Et très commodes. 

A ce stade,si vous lancez le programme avec un RUN,aDpAremment 
rien ne se passer2a.Mais si vous n'avezpas de message d'erreur, 
c'est que la structure d'exécution à été correctement écrite. 
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Ceci fait on peut s'occupoer des sous programmes. 


Le sous programme 1229 écrit le lavage du linge s2le.Dans cette 
séquence nous avons une phase de rinçage.Dans laquelle on vide 
le tambour ,on le remplit de nouveau,on tourne pendant cinq minutes 


et on vide à nouveau. 


Nous renconterons cette ééquence dans les trois sous programmes 
A noter que dans le sous programme "LINGE TRES SALE" nous aurons 
quatre rinçages successifs. 


49: 


Ceci suggère de créér un sous-sous-programme "rinçage". 
+2x20n 

14999 2EM RINCAGE 

12919 PRINT"VIDER TAMBOUR" 

19929 PRINT"'REMPLIR TAMBOUR" 

19039 PRINT"TOURNER PENDANT CINQ MINUTES" 

19940 PRINT"VIDER TAMBOUR" 


10999 RETURN 


Pourquoi en 10240 ? 
Nous avons de la place.Nous pouvons donner des adresses - de lignes 


programmes de 1 à 42299. 

Il est bon de situer les sous programmes dans des lignes 14929, 
2099 ,3289 etc... 

Et quand on a des niveaux de sous programmes supérieurs,de les 
situer en 12299,114900,12899,etc.... 

NB vous pourriez à partir de ces sous-sous-programmes,appeler 
d'autres sous-sous-sous-programmes,etc... 

Mais il est rare qu'on dépasse ce stade. 


On va donc écrire les sous programme 1990 comme suit : 


1992 REM LINGE SALE 

1919 PRINT"'REMPLIR LE TAMBOUR D'EAU" 

1929 PRINT"ALLER CHERCHER LESSIVE DANS CASIER" 
1939 PRINT"PORTER L'EAU A SOIXANTE DEGRES" 
1949 PRINT'TOURNER PENDANT TRENTE MINUTES" 
1959 GosuB 149%a 


1969 PRINT"TOURNER PENDANT CINQ MINUTES" 
1999RETURN 


Passons au programme "LINGE TRES SALE" 
On écrira 

3490 2EM LINGE TRES SALE 

3219 PRINT"REMPLIR LE TAMBOUR D'EAU" 


3929 PRINT"ALLER CHERCHER LESSIVE DANS CASIER" 
3939 PRINT"PORTER L'EAU A QUATRE VINGT DEGRES" 


3949 PRINT'TOURNER PENDANT TRENTE MINUTES" 


AO 


3859 GOSUB 10929 : GOSUB 14249 : GOSUB 19499 : coSUB 14942 
3260 PRINT"'TOURNER CINQ MINUTES" 

3999 RETURN 

À la ligne 3252 on voit figurer les quatre essorages. 

Que signifie cette écriture ? 

On peut consigner plusieurs lignes sur une seule,en séparant 
les opérations par deux points.Ilci ces ordres sont des appels 
de sous Programmes mais on aurait pu mettre n'importe quel 
ordre correspondant au langage BASIC. 


Ca à déj: meilleure allure. 


Mais on pourrait procéder autrement. 


BOUCLES 
FOR..NEX 


Essaÿons de standardiser encore les opérations.Dans ces tiches de 
lavage on commence par emplir le tambour d'eau.Puis on va chercher 
la lessive dans le casier.Puis on chauffe à une température T. 

Enfin on tourne pendant un temps TR.On fait N rinçages,on essore,fin. 
Il y à donc érois paramètres de lavage. 


La température de lavage T 
Le temps de lavage TR 
; Le nombre d'essorages N 


Imaginons que ces trois renseignements soient consignés dans 


des registres T , TR , N. 
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Ces registres deviennent alors des VARLAR LE = 


Parce que leur contenu peut changer d'un lavage à l'autre. 


Le programme standard de lavage serait ainsi : 


Remplir le tambour d'eau 

Porter à une température T 

Tourner tembour pendant TR minutes 

Fire N rinçages 

Vider 

Fin. 

Reprenons notre programme et effaçons tout sauf le menu,c'est 
à dire les lignes 5 à 7f. 

Ceci dit,en écrivant ce manuel,nous nous sommes trouvés devant 
un véritable casse-tête. 


Sur l'APPLE IL,par exemple,il existe une instruction très 
commode : DEL,qui permet d'effacer des paquets de lignes.On l'utilise 
comme l'instruction LIST.Sur l'APPLE quand on écrit : | 


DEL 1649,224dd toutes les lignes se situant entre 1249 et 20929 


sont effacées d'un coup. 
DEL 1949, efface tout à partir de la ligne 1829 comprise. 
Sur ce .... d'ORIC-1 pas moyen de trouver une instruction équivalente 
Il existe bien une touche DEL sur le clavier, mais elle 2 un autre 
usage.J'ai bien essayé DEL 1999- et DEL 19929-19999 : SYNTAX ERROR ! 
Le temps presse.Rien dans ce fichu manuel de.... ! \ 
Deux hypothèses : ou Ça n'existe pas ( ce qui serait une sacrée 
lacune ),ou le traducteur français a oublié de mentionner cet outil 
important. 

Espèrons que nous arriverons à élucicder cette question agaçante. 
En atéendant,pour restructurer ce programme,mieux vaut faire NEW 
et réécrire ces lignes 5 à 72.Quand même.... 


Ceci fait nous allons réécrire le programme différemment. 
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Voici les nouveaux sous-programmes 
1929 REM LINGE SALE 

1919 T=69 

1929 TR=39 

1039 N=f 

1949 GOSUB 19009 


1999 return 


2200 REM LINGE TRES SALE 


2919 T = 89 
2229 TR = 39 
2939 N = 4 


2940 es 12808 


2999 RETURN 


3229 REM LINGE DELICAT 
39 TE& 42 


3229 TR= 19 

3239 N=-4 

3949 GOSUB 12600 
3999 RETURN 


Le proÿramme 12vage ! 

19902 REM LAVAGE 

19919 PRINT"REMPLIR TAMBOUR d'EAU" 

19929 PRINT"ALLER CHERCHER LESSIVE DANS CASIER" 

19939 PRINT"PORTER L'EAU A ";T;" DEGRES" 

19949 PRINT"tourner ";TR;" MINUTES" 

19959 FOR I=1 TO N ’ 

12962 PRINT"VEDER TAMBOUR" a PA À rs s-7e 
18976 PRINT"REMPLIR TAMBOUR" 
19989 PRINT"TOURNER CINQ MINUTES" 

12098 NEXT I 

19199 PRINT" VIDER LE TAMBOUR" .- 


19119 PRINT"TOURNER CINQ MINUTES":REM ESSORAGE 
10999 RETURN 


L'écriture devient beaucoup plus compacte.Tout tient sur une page. 
L'ordre PRINT vermet d'Â2Ff£ficher plusieurs choses bout à bout. 


A condition de séparer ces choses par un point virgule. 
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N'oubliez pas entre les guillemets,dans les lignes 16939 
et 12249 de mettre des blancs pour éviter que les impressions 
successives ne soient collées les unes aux autres. 


La ligne 19259 signifie : 
Pour I allant de 1 à N 


“ 
La ligne 149% signifie (baisser à la valeur suivante de I. 


Remarque : dans les options 1 et 3 le nombre de rinçages est 1. 


La bouvle FOR..... NEXT admet très bien cette limite.Et lA têche 
est effectuée pour I variant de 1 à.... 1,c'est à dire une seule 
fois.Ca passe.... 


Quelques conseils. 

Le point Faible de l'ORIC c'est son clavier.Il pourra vous 
arriver de coincer une touche.aAuquel cas vous verrez un caractère 
se répèter indéfiniment sur l'écran.Ne paniquez pas.Vous ne risque: 
absolument rien.Avec sang froid,décoincez la touche. 

Vous pouvez aussi vous tromper en tapant un caratère.Pour reven: 
en arrière utilisez la touche DEL à droite du clavier.Il y à 
retour d'une case du curseur ,avec annulation du caractère frappé. 


En pressant plusieurs fois consécutives sur cette touche,vous 
pouvez effaçer une série de caractères erronés. 


Sur l'APPLE II ont peut tout taper sans mettre de "blancs". 
L'interprèteur est assez m2lin pour s'y retrouver.Celui de l'ORIC 


est de ce côté là un peu moihs perfectionné.N'hésitez donc pas 
à en mettre plutôt plus que moins.Cel2 vous évitera des déboires 
à l'éxécution. 


Execution du programme.Vous faites RUN. Vous choisissez une des 
options et là liste des opérations simulées est Affichée. 


EXERCICES SUR CETTE PREMIERE PARTIE DE COURS 


BUREAUTIQUE 

Vous allez écrire un programme qui écrit automatiquement une 
lettre sur l'écran,portant le texte suivant : 

MONSIEUR, 

J'AI BIEN RECU VOTRE HONOREE DU ONZE COURANT 

ET JE VOUS EN REMERCIE. 

QUANT A NOTRE ARTICLE 9013-4A,NOUS NE L'AVONS 

PLUS EN STOCK,HELAS. 


NOUS POURRONS PALLIER CETTE RUPTURE DU STOCK 
EN DATE DU 2/05/83. 


AVEC NOS EXCUSES 


R. DUCLAMPIN. 


Le programme n'est qu'une suite d'ordre PRINT.Lorsque que vous 
faites RUN,ce texte doit s'afficher sur l'écran. 


Deuxième étape.Programme avec entrée de donnée. 

Faites NEW et composez un nouveau programme.La première partie 
comporte des étapes d'acquisition de données,à travers des 
instructions INPUT. Inutile de vous embarquer dans des sous 
programmes pour un truc aussi simple. 


L'ordinateur commencer: p2r poser des questions comme : 
MDATE DE LA LETTRE DU CLIENT" 


"REFERENCE ARTICLE DEMANDE" 


MDATE POSSIBLE LIVRAISON" 

Dans cette "saisie" l'input ser2 suivi du questionnement entre 
guillement,puis du point et virgule-Les renseignements seront 
saisis comme des chaines de caratères. 

Exemple 

INPUT"'DATE DE LA LETTRE DU CLIENT B;ps 

Etc... 

Ces renseignements entrés dans la machine 12 suite du programme 
écrira la même lettre,mais en exploitant les renseignements 
mis en mémoire. 


SAS 


Exemple : 
PRINT"'J'AI BIEN RECU VOTRE HONOREE DU ";D$ 


EtCCs és. 


EXERCICE SUR LES BOUCLES FOR NEXT 
Je précise : il est toujours inutile ici de mettre des sous 
programmes.Ne vous embrouillez pas l'esprit inutilement.Ces 
exercices sont progressifs. 
Vous 21lez faire un programme pour vous endormir.Pour 
"compter les moutons". 
Voici le résultat escompté de ce programme: 


CONBIEN 
SSMESN#-DE MOUTONS ? 


Draborë un questionnerent.Avec un INPUT et une création d'un 
registre nombre de moutons NY. 


Puis une boucle for next qui affiche les moutons. 

Précision : le premier moutàn pose un problème d'orthographe. 
En effet il faut que sur écran apparaisse 

1: MOUTON 

2 MOUTONS 

3 MOUTONS 

etc... 

C'est simple : commencez par 2fficher "1 MOUTON" puis le 
reste en Éxxxi écrivant FOR I = 2 TO NM 

Ce qui fait commencer l'écriture au deuxième mouton. 

Vous pouvez vous amuser à inclure dans votre boucle des signaux 
sonores corresvondant à PING ZAP SHOOT . 


Variante. 

A la Fin de l'2affichAage de ces NM moutons on peut mettre 

le questionnement suivant. 

EST-CE QUE VOUS DORMEZ ? 

L: réponse étant consignée dans un registre R $ ( attention,c'est 
une chaine de caractères ). 
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L2 seule réponse Qui entraine un retour vers le debut de 
programme est la réponse NON. 

On mettra donc un test : 

IF R $ ="NON" THEN suivi de l'adresse correspondant au début 
du programme.Par exemple ce CLS qui efface l'écrAan,puis est suivi 
du questionnement. 


VEVRUXTINAUXVASXEAVEVEVÉIVENEVRÜE EX SUVXVEEXSÈVUVÉULYEVEÉYXSEUEVX 


EXERCICE SUR LES SOUS-PROGRAMMES 


Vous 211ez construire un progr2mme de synthèse sonore. 
Il y aur: un menu,puis des sous programmes de production de sons. 


Le menu affichera : 
VOULEZ-VOUS PRODUIRE 


1- DES PING 
2-DES ZAP 
3-DES SHOOT 


VOTRE CHOIX ? 


On répond 1,2 ou 3. 
Puis une question : 
COMBIEN ? 


La réponse étant le nombre de PING de ZAP ou de SHOOT . 

Ces deux données étant entrées,le progr2mre devra à partir de 
boucles FOR NEXT qui iront de 1 à N engendrer les nombre de 
bruits voulu. 

Appelons N le nombre de bruits. 

Les bruits sont engendrés par précisément ces instructions 
PING,ZAP, SHOOT.. 


Indication : si vous voulez bien séparer les bruits successifs, 


mettez 2près chacun un ou plusieurs PRINT 
Exemple 

dans votre boucle 

140 PING 

150 PRINT:PRINT:PRINT:PRINT 

160 NEXT I 


SAT à 


Suivant le nombre de PRINT,vous pourrez règler le rythme 
de cette séquence sonore. 


/ D Fou 
Voici un premier exemple d'application pas trop sotte de l'inform: 


tique AT HOME. 
Lorsque l'impôt sur le revenu est calculé,on se serit du revenu 


: imposable R 

Chaque famille à un nombre de parts NP 

Une part pour un célibataire 

Une part et demie pour un célibataire ayant un enfant à ch2rge 
( les enfants à charge représentent une deñée part ) 

Deux parts pour un couple marié 

Deux parts et demie pour un couple avec un enfant 

Trois parts pour un couple avec deux enfants,etc.... 


Le quotient f2milia1 QF est égal au revenu imposahle,divisé par 
le nombre de parts.L'impôt se calcule ainsi "par tranches".Il est 


progressif en Fonction de ce quotient QFr2 R/NP Ê 
Voici un mode de calcul correspondant à une vieille feuille d'impôt 


Les chiffres sont à réviser. 


Au 
De) 


Questionnement : quel est votre revenu impos2ble 
Questionnement : etes vous marié ? 
Questionnement : 2vez vous des enfants à charge ? Combien ? 
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NA est le nombre d'adultes ( 1 pour un célibataire,2 pour un couple ) 
NE est ñe nombre d'enfants à charge. 
Le nombre de parts NP est égal à NA + NE/2 


( Ah,en informatique 12 division est représentée non par par 
les deux points,mais par le "slash" / ). 


+ Addihion 
| — Souihaclim 
ALGEBRE / DIVISTON 
ÉLENENTARD  — fige 29 
SLR 
Le quotient Le. est alor R - - ss 


Le barème ( 1982 ) de calcul de l'impôt est le suivant :- 


SI QF = 9890 F Ie 0 
Si QF >4990F et<= 10340 F alors I=(R 0,05 ) 


Si @F>103t0 et aF <= 12296 F alu — (494,5 KR NP) 
ile a A0 7. T<(Rxo,1)-{10015 x NP 


GR @QF 242 970 À OF jatiorads<4 
ads mer. 1 -(Rxoÿ5)- (1626 X Nÿ 


A OF > 14 LIEN QT <= 244507 clr4 
Gomde à 20/  z=(Rro,t)-(25 46, x] 
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x @r >1480e d QFE= 319607 als 
Rare 25 / L-(Rrko,ir) -(28#3 x NV 


MAT > 312607 N QF € = 77640 af 
fau che Vo L = @xo,1)-(541 x) 


M AFD3F4%0F AN QE << 417DE ans 
Kauda 351 T-Proite (rte x M) 
MAF>4177F À @P <= 714340F als 
Raule 407. z-(R xo#])-(4#7,CXNP) 


M AF »>729%0Fet QF €=1007207 eo 


kavoke #67. 1-(R x047)- (17143 x NP) 
Mm RTE >lootir N OP Lez UE ÉC0F a lp 
A AE =(RX 06) (181640 x) 
A GF>oUS 660F À AP E= Sont als 
ta SU ii S (24592,5XN) 


RGF>ISmr 
nl 607. Le rare 30 847,1 xW) 


250 


Ces chiffres sont évidemment à revoir puisqu'il existe maintenant 
je crois une tranche à 70 %.Et un impôt sur les grandes fortunes 
et un impôts sur l'impôtx.... 

Bon,restons en là. 


Les lignes se lisent 


Si@ »>q340t NR<E= b3%oF 
par exemple : 
SI QF EST SUPERIEUR A 9890 F ET INFERIEUR OU EGAL A 10340 F.... 


INFERIEUR A 


mé 
h L} CT LA 
k, SUPERIEUR A 
> SUPERIEUR OU EGAL A 
> 


DIFFERENT DE 
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Un tost peut porter sur plusieurs conditions simultanées. 


ALGÈRRE BOOLÉENVE 


ND ok 


En utilisant les éléments AND ( "et" ) et OR ( "ou" ) 
On peut créer des tests disant : 


SI GECI ET CELA ALORS 
SI CECI OU CELA ALORS..... 


Nous 21lons utiliser ces nouveaux éléments,ées nouveaux rou2ges 
de programmation,pour construire ce programme. 


Première partie : acquisition des informations nécéssaires 
au calcul de l'impôts. 
19/ CLS : REM EFFACAGE ECRAN 


29 INPUT "REVENU IMPOSABLE ";R 

ZEXXXRET 

32 PRINT NETES-VOUS:" 

4ff"1-CELIBATAIRE" 

Sf"2-MARIE" 

6 INPUT"VOTRE SITUATION DE FAMILLE:";NA 

78 IF NA<ÿ 4 AND NA<'>Z THEN PRINT"REPONSE ERRONBE" : GOTO A 


La ligne 74 est une des multiples façons d'éviter les réponses 
non conformes,style 1,5 ( personnes à moitié mariées ). 

Elle signifie: 

SI NA EST DIFFERENT DE 1 ET NA DIFFERENT DE 2 ALORS ..... 
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80 PRINT"NOMBRE D'ENFANTS A CHARGE" 
99 PRINT"SI VOUS N'EN AVEZ PAS,REPONDEZ g" 
109 INPUT NE 


pas obligatoire de mettre le questionnement après 1) 
119 REM CALCUL DE NOMBRE DE PARTS NP 

129 NP = ( NA + NE/2 ) 

132 PRINT"'NOMBRE DE PARTS = "; NP. 

PRINT 

1 D REM CALCUL DU QUOTIENT FAMILIAL QF 


169 QF = R/NP 
179 PRINT"QUOTIENT FAMILIAL = ";QF 
189 PRINT 


Je mets des prints pour créer des lignes vides.Pour 
moins serrer les textes affichés. 


190 REM CALCUL DE LiIMPOT SUR LE REVENU 

200 IF QF< 9899 THEN T=9:GOT0 | go 

210 IF QF 9899 AND QF <= 19349 THEN T=5:1=R% #. #5 - 494.5 % NP: 
GOTO [5 8g 

220 IF QF >1B445 AND QF€<=12270 THEN T=19 ; 


1l:R + #4 - IBUIS NP :COTO [225 

23h IF QF >12240 AND QF<= 1440 THB N T=l8: 
LzLleDIS -+EUNNP : CoTo PB 

LI IFer >ig4le AND Qr <=-21445p THE 

T = Lp : 1=L+ GI- 18458 XNP: CITO LEPY 
Lys |F QF D 2H 46DAND QF = 31 369 THEN 
T=15: L=RæG.10- 98 YVENP: GOTo 1066 
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159 \F0r > 31966 An» QF = 3794 THEN 
T=2%pb: I=pxS3 -Wi| NP : GoTo 22 
268 (FE OT >71+449 And QF L = 4378 THEN 
T-35:L- Rx IS - 71758 XNP: GI70 | gÈs 
127$ IF QF > 4377 AND QF <= 244 THEN 
TF#DITSRERU-AIHTCE NP : Cor o Ip 
268$ 1F QF> 712466 AND QF = ID 3 25 
THEN T =4S: B=Rxd4s- INC NP: GTorgép 
248 IF QE >IB530% AND QF<= IS 662 THEN 
Ts5h:1e Ra DS-18157. SA NP : GOT 0 1 ff 
Rp 16 @F ue bg AD QF <=IT RS Tuen 
T:65:1-RX PES 24H92 S KMP : GoToIpge 
31p IF OF >I3S pag THen Te 66: T2R x GS 

_ 3p4#82.5x NP 

\pég PRINT" VOTRE as D'IHP0 SITION 


1 U pour cENT | 


1b1# PRINT ñ 
1S22 PRINT 'IMPOT SUR LE REVENU pri F 
(993$ END 
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Le calcul est une succession de tests. 


Dans chaque ligne de test on vérifie sù vous êtes d2ns ceëbte 
"tranche". 


Si oui,tout ce qui suit est exécuté,les opérations étant séparées. 


par deux points. 
Définition du taux T 
C2lcul de l'impôt I 


Si on à détecté la tranche,inutile de faire les tests suivants. 


On 2 alors un BRANCHEMENT GOTO qui amène en fin de programme 
avec affichage du résultat. 


SAUVER UN 
PROGRAMME 


D, deux choses l'une : ou vous disposez d'un minicassette,ou 
votre ORIC est connecté à un iecteur de disquette. 

Premier cAs,vous positionnez votre bande sur une portion vierge. 
Vous notez la cote de cette position à l'Aide du compteur ( préil2 


blement remis à zéro 2près réenroulement de la bande à l'Aide de 


PS 


12 touche 214 hoc ! ) 
Mettez la ton21lité sur AIGUS.Et la puissance au maxi. 
Utilisez la touche PAUSE pour bloquer le déroulement de la b2nde. 


Puis enfoncez la touche ENREGISTREMENT. 
Au clavier de l'ORIC,composez CSAVE'" IMPOT" 

* Relachez 12 touche PAUSE en éévlench=nt le déroulement 
de 12 b2Ande,et aussitôt après pressez sur Return.Le programme 
est 21l0ors stocké. 

Quand l'ORIC "vous rend 12 main" arrètez le défilement de 12 
bande. 
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Pour charger de nouveau ce programme,commencez par positionner 
12 7 bande au bon enéroit,avec un poil de marge ( le repér2ge 
n'est pas ultra précis ). 

Enclenchez 12 PAUSE,puis pressez sur la touche mettant en marche 


le magnétocassette. 
Au clavier de l'ORIC,composez: 
CLOAD'"IMPOT" 
Relachez la touche pause et immédiatement après pressez sur Return. 
L'ORIC affiche SEARCHING..... 
cé qui veut dire JE CHERCHE. 
Si le programme est correctement : chargé,l'ORIC rend la main. 
Et c'est prêt à tourner.Arrètez alors le défilement de la bande. 


Si vous avez oublié le nom du programme,vous pouvez charger ce 
qui se présente sur la bande en faisant simplement CLOAD"" 
L'ORIC charger: le premier programme rencontré. 


Si vous avez un lecteur de cassette,l'ordre de SAUVEGARDE 
sera vraisemblablement 
SAVE IMPOT 


et l'ordre inverse de chargement 


LOAD IMPOT 


Mais comme nous n'avons p2s encore reçu ces lecteurs de disquettes 


nous ñne pouvons que reproduire à titre indicatif les ordres de 
l'APPLE II.Voùr éventuellement manuel. 


INCONVENIENTS DE CES CASSETTES. 


C'est LENT.C'est LINEAIRE.Si vous avez perdu un programme 
vous pouvez être contr2int d'explorer laborieusement toutes vos 
aassettes avec des CLOAD'"" jusqu'à ce que vous tombiez sur 12 hennre 
bande et sur le bon endroit.Ca peut vous prendre...la journée ! 
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Les lecteurs de disquettes réalisent une exploration de cette 
mémoire externe infiniment plus rapide.Et parzx ailleurs un ordre 
permet d'en connaitre le CONTENU. 


Sür l'APPLE II cet ordre est CATALOG. 


On ne connait pas encore les ordres types des lecteurs ORIC. 

Mais il y aur2 sûrement quelquechose du même genre. 
L'ensemble des ordres spécialement liés à l'emploi des 

disquettes constitue ce qu'on appelle le D.0.S. ou 


DISK OPERATING SYSTEM 


Ce DOS accroit considérablement les possibilités d'un ordinateur. 


Nous verrons plus loin comment simuler cet ordre CATALOG avec 
une cassette,en créant un programme donnant le contenu. 


Ceci dit ,nous n'insisterons pas sur cet emploi de c2ssettes, 
car ce n'est qu'un pis aller.Logiquement,les cassettes vont disparait 
dansles années à venir,pour être totalement remplacées par les 


disquettes.Le prix deviendrA* abordable quand la concurrence 


se mettra à jouer.Pour le moment (1983) le prix d'un lecteur de 
disquettes APPLE II est artificiellement maintenu aux alentours 


de 4000 F.I1 s'effondrera dès la sortie d'un matériel concurrent. 
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NOTION 
D ALGORITHME 


Jusqu'ici nous n'avons vu que des apphicahigué aSseZ rustiques 
de l'ordinateur.La notion de tâche est bien 2pparue,=insi qu'un 
mode de travail 2vec des options. 

Les entrées de données,en cours d'éxecution,nous ont permis 
d'illustrer un mode CONVERSATIONNEL. 


On peut évidemment utiliser un ordin2teur pour 
c2lculer son impôt sur le revenu.Mais on peut aussi faire ce 
calculà l2 main eñ quelques minutes.A condition d'avoir les 
Formules. 

On aimerait déboucher sur un emploi de l'ordinateur qui 
rend un service plus spécifique,qui aide à résèudre un'’problème 


difficile à traiter " à la main". 
L= façon de résoudre un problème s'appelle un ALGORITHME. 
Dans l'A2rgot des tzupins ( candidats aux grandes écoles ) ceci 


s'Aapoele aussi une DEMERDANTE. 


Nous avons retenu un exemple qui,à dessein,est lié à 12 
vie de tous les jours.L'EMPRUNT. 
Quand un simple quidam veut emprunter de l'argent, ,il lui 


faut se rendre d2ans une b=nque.Ill fixe 21lors le montant de 

12 somme qu'il souhaite emprunter.Et le nombre d'années 2u long 
desquelles les remboursements seront échelonnés.Le banquier 
feuillète alors des tables et iui fixera le montant du rembourse- 
ment mensuel. 


EC: 


Si le contrat est passé,le client aura sans doute bien des 
surprises s'il désire effectuer un remboursement anticipé. Au bout 
de quelques 2nnées seulement. 

- Mais,je dois rembourser presque toute 11 somme ? 
- Eh oui,pendant ces premières années,vous n'avez payé que des 
intérêt.Ce n'est qu'en Fin d'emprunt que la dette se trouve 
éongée. 

Le quidam reste perplexe.La chose est connue.le travail ci Après 


Mettra bien en évidence pourquoi il en est Ainsi. 

Un des paramètres "sensibles" de l'opération emprunt est le 
taux d'escompte.C'est à dire le taux d'intérêt. 

Les banques ont p2s mal monté ce taux ces dernières Années, 
pour freiner la consommation intérieure en France.Comme on le verr>= 
l'accroissement de ce taux est très dissuasif. 

REAGAN 2 monté le taux d'emprunt de ses précieux dollars. 

Ce qui a entrainé une montée du cours de s2 monn2ie et Aussi 

provoqué une réaction en chaine dans les taux pr2tiqués par les 

pays de 12 "zône dollar". 

COMMENT MARCHE L'EMPRUNT 9? 

Soit S la somme d'argent empruntée. 

Soit alpha le taux d'escompte,le taux d'intérêt,mensuel. 
—— 

Soit RM le remboursement mensuel. ee 


Chaque mois la dette S est passée à 
S(r+x) -RM 


Constatation évidente : si RM= LS la dette reste constante. 


Le temps de remboursement est infini. 


Pour que 12 dette soit épongée un jour il faut que 


R7XS 
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Le mois suivant 12 dette passera à : 


[Sta)-RuT( a+) -RA 
ct, & ken Auanl à & 
[S ca+x]- 8H 104 +<)-RHECA +x)-RH 


ee 


La formule algèbrique donnant le montant de 12 dette 2u bout 
de N mois,si N est grand,devient intermin2ble. 

Ce qu'on cherche,c'est la valeur de RM correspondant à un 
nombre NM de mois donné. 

L2 résulution algèbrique d'un telsystème à quelquechose 
de désespéré. 

Or c'est précisément le renseignement que veut le client. 
"Si je veux emprunter sur NM mois,combien aurai-je à payer 
chaque mois ?" 

Le banquier à sa table avec lui.ll est à même de fournir le 
résultat.Le calcul à été fait d'avance.Pour tous les taux 
d'intérêt possibles. 

Imaginons que nous soyions sur uneiîle déserte,et que nous 
n'ayions pas de table sous 12 main.Et nous voulons ce renseignement. 


Certains objecteront que,sur une Île déserte,il n'y à pas non 


plus d'organisme de prêt.PAssons sur ce détàil. 
L=: façon de Faire consistera à essayer plusieurs montants 
de remboursements mensuels ?M successifs en procèdant par 


APPROXIMATIONS SUCCESSIVES. 


Soit NM le nombre de mois sur lequel devra courir l'emprunt. 
On essaie une valeur de RM et on calcule la somme restant à 
liquider. 

Si elle est négative c'est que RM a été choisi trop fort 

Si elle est positive RM a été choisi trop faible. 

On t$tonne.On se r2pproche ainsi progressivement ,le plus près 
possible de la valeur correcte. 


Si l'emprunt porte sur 15 ans,ce qui est courant,le nombre 
de mois ser: 360.Ce qui veut dire qu'il faudrA,pour chaque choix 
de RM,faire trois cent soixante fois le calcul de S ! 


Si une douzaine d'essais sont nécéssaires,l'opération vire 
à l'interminable. 
C'est là que l'ordinateur intervient. 


L'exemple du taux d'intérêt est simple,et proche des préocuupations 


de l'homme de 12 rue.Quand on s'aventure dans l2 jungle du monde 
scientifique il ne faut pas chercher bien loin pour tomber sur 

des problèmes que seul l'ordinateur peut résoudre.La somme de 
calculs est tellement inimaginable que l'opérateur manuel mettrait 
des siècles à traiter le problème manuellement,sinon plus. 

Bree remarque : en science, ,il n'y à pas de les calculs 
numétiques.On effectue aussi souvent des calculs littéraux très 
importants.Par exemple dans le monde de la relativité. 

L'ordinateur est aussi capable de manipuler des symboles 
codés.Des X,des Y etc... 

On peut alors lui confier la tâche de tripoter des expressiobs 
littérales complexes,pour extraire telle ou telle forme EXPLICITE. 
Du style : 


X = F (Y,2,T,U,V,W ) 
On à déj2 utilisé avec succès l'ordinateur dans des tiches de 
ce genre.Par exemple en cherchant à vérifier des calculs littéraux. 


Et des erreurs ont ainsi pu être détectées. 
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Un ordinateur à ainsi pu refaire en quelques dizaihes de minutes 
des calculs effectués par les hèmmes pendant des mois et des mois. 
Je cite cette anecdote pour suggérer que l'ordinateur n'est 
pas ce BOUSTROPHEDON qu'on imagine.( De BOUS,le boeuf,et STROPHEDEIN 
le sillon Je 
Une nouvelle étape a été franchie. 
Nous pourrions,si nous le désirions,programmer notre ORIC de 
manière à le rendre capable de calculer littér2llemeht une 
dérivée d'une fonction quelconque.Mais c'est pousser le houchon 
un peu loin pour un cours destiné en principe à des littéraires. 
La Façon dont l'ordinateur doit analyser une expression est 
assez passionante.Il est clair que,ce faisant,on progresse dans 
la voie des machines "intelligentes". 
Le chemin est long.Et l'intelligence a de multiples visages. 
Ceela serait un peu compliqué d'expliquer comment se fait cette 


progressions.Refermons sagement cette parenthèse et revenons 
à notre Algorithme de calcul d'emprunt. 


Ici la solution est simple : l'ordinateur va effectuer le 


travail à notre place,beaucoup plus vite. 


Tout cela commencera par une procédure de saisie de donmées: 


19 CLS : REM EFFACAGE ECRAN 
29 INPUT"TAUX D'ESCOMPTE EN % "; TE 
22 INPUT'SOMME EMPRUNTEE:";S 
49 INPUT"NOMBRE D'ANNEES"; NA 


Voilà ,nous avons tous les renseignements nécéssaires. 


Première chose à faire: convertir le taux d'escompte TE 
en taux de remboursement mensuel. 


Dm roubpuue TE A5à fe a 
dme TE / (165 +12) per ma 
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écrivons : 


50 A=TE / 1209 


A devient le taux de remboursement mensuel ( le alpha...) 
Calculons le nombre de mois 
68 NM = NA 12 


RESOLUTION ITERATIVE : 


Nous 21llons d'abord effectuer un calcul grossier du remboursement 


mensuel RM par tranches de 500 F. 
Autrement dit on essayera d'encadrer la valeur cherchée de RM 


en testant successivement : 
RM = 599 
RM = 100 
RM 1529 
RM A 


etCer..e 


Le saut d'une vileut à l'2utre s'2ppelera [INCREMENT.Et l'opértion 
d'accroissement de RM s'appelle une/INCREMENTATION 


Nous allons créer une boucle de calcul,Aavec un ordre de retour 


en boucle et un test de sortie de boucle. 
Pas d'affolement.... 
Dans un registre S1 je vais placer une copie de la valeur S 
de 12 somme empruntée ,en Faisant tout simplement 
S1=S 
Dans un registre IC je vais mettre l'INCREMENT { soit IC=500 ) 
Le registre M permettre de compter ne nombre de mois.Sa valeur 


initiale sera M = Ÿ [Enitinlisation de cette VARIABLE M }). 
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Si on est capable de bien décrire le processus,on sera à même 
de programmer correctement.Quel est-il ? 


Quelle eat 12 valeur initiale à donner à RM dans cette itération. 
La valeur zéro ? & 

Ca marchera.MAis on peut gagner un temps précieux.On sait en 
effet que le temps de remboursement est ingini si RM = S x A 

$ là on se contente de payer l'intérêt sur 1: somme j). 

On écrirà2 donc: 

78 RM = S % A : REM VALEUR INITIALE DE RM 

82 IC = 52% 

Puis écrivons : 


129 S1=S : M= @': RM = RM + IC 
On initialise les variables S1 et M et on incrémente .RM. 


Pas d'Aaffolement.Cette écriture RM = RM + IC à quelquechose 
d'éminement absurde ,algèbriquement parlant.Cela voudrait dire 
que IC est nul.On en 80 on à écrit qu'il ne l'était pas ! 


Le signe ég21 n'a p2s en informatique le même sens qu'en 
algèbre. ‘ 

11 se trouve que les informaticiens on utilisé ce signe ég21 
dans ce l2ngage de programmation. Il eut été préférable d'écrire: 


RM= RH+IC 


Ce qui signifie 21lors: 


Dans le registre RM mettre la valeur initi2lement contenue 
dans ce registre }) PLUS 12 valeur présente dAns le registre IC. 


De même quand j'écris 


IC = 599 
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i1 ser2it plus 2ÿré2ble de pouvoir écrire 


LC & $ 9p 


Car nous savons que ceci signifie METTRE 599 dans IC. 


Bon... il se trouve qu'en informatique on a pris ce signe 
égal. Il Faut s'en contenter.Mais j'espère que vous avez bien 
compris qu'il signigie METTRE DANS. 


La quantité à "mettre dans" est APRES le signe ég21 et le 
registre intéressé est AVANT ce signe égai.D'où cette idée 
de flêche dirigée vers 12 gauche. 


La ligne 100 représente donc une incrémentation.On accroit la 
yaleur contenue dans ce registre RM de la valeur IC. 


.Ligne suivante : 
119 $1=51æx(1+A)-M:M=M+1 


Ce qui signifie qu'on cAlcule le nouveau montant de 12 somme 
qui reste due 2près UN mois.Et on INCREMENTE le nombre de mois M 


Encore une fois il eut été plus agréable de pouvoir écrire: 
A1p S1e SAa01+4) RH M AXE 


On va réaliser cette opération jusqu'à ce que M atteigne le nombre 
NM de moës.Aïinsi on écrira : 


12% IF M< > NM THEN 112 
Autrement dit SI M EST DIFFERENT DE NM ALORS ALLER EN 11ÿ 


Ce TEST assurera unà SORTIE DE BOUCLE AUTOMATIQUE dès que M 
-atteindra la valeur entière NM. 


Le retour vers l2 liçcne 11 n'étant plus déclenché par le 
test on passera à la ligne suivante du progr2mme quelle qu'elle 


soit. 
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A ce stade,fAaisons tourner le programme. On entre le t2ux 
d'escompte,l2 somme S ( par exemple T = 17 % et S = 200 000 F ) 
emprunt sur cinq ans. 

Après ce premier cycle de calcul,avec un remboursement 
mensuel ég21 à S x A + 500 soit 2833 + 500 = 3333 F ,1e 
reliquat d'emprunt S1 est de 153209.411 F 

On peut s'en assurer en faisant 

PRINT RM | 

Print S1. 

‘Il faudr2 donc incrémenter de nouveau RM de la valeur IC. 
Et refaire un nouveau cycle de NM mois;pour obtenir une 
nouvelle valeur de S1,plus f=ible. 

En fait il faut rééditer l'opération jusqu'à ce que 51 soit 
trouvé er valeur négative. 

Ce qu'on pourra faire en écrivant 


139 IF S1 > @ THEN 122 

La sortie de boucle s'effectuera automatiquement lorsque 51 
passera en négtif ( la Valeur de RM ser2 alors trop élevée, 

on aura trop remboursé }). 

Refaites l'essai. 

Taux 17 

Somme 200000 

Années 5 

Laisser infuser et faites print S1 ,vous obtenez: -33985.9532 F 
La valeur de RM se situe donc entre 


5333 F et 5333-500 F = 4833 F 
( on trouve la valeur 5333 F en faisant print RM,bien sûr ). 


Réécrivons le petit bout de programme qui nous à donné ce résultat 


10 CLS 
2O INPUT "TAUX D'ESOHPTE ENS '"ITE 
3 INPUT "SOMHE EAPRUNTEE "; S 
#6 INPUT'NOHRRE D'ANNEES ",N À 
Dé A-TE/lLpe 
GHNH=NA+X IQ 
FÉRH . 
fa IC= 

186 S1=-$S:M=6:8Rh=RH+IC 

j 11451: S4#(1+4)-RH:h=H+4 

12H15 M<>NM THEN IY 

13PIF S1>S THEN IS 
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on pourra complêter avec 
140 RM = RM - IC : REM UN PAS EN ARRIERE 


On pourra repartir alors de cette nouvelle valeur de RM et 
envisager un nouveau cycle de calcul avec un "pas" plus fin 
une valeur de IC dàx #ois plus petite : 50 F. 


Il suffit de rééditer la séquence 


188 1c = 54 

209 S1=8:M = d : RM = 2" + IC 

219 S1= $1æ (1+A)-RM:R=M4+1 
Een IF M< > NM THEN 219 

239 IF S1 >OTHEN 299 

24f RM Æ RM - IC 


Ce sont les mêmes lignes que précédemment, mais 2vec ün IC 


dix fois plus faible. 


On relance avec les mêmes valeurs 


Tux 17 . 
Somme 2029pf ( Vuroy* Lite) 
Annéées 35 


On obtaënt RM = 4933.33 F 


Et la valeur exacte de RM est comprise cette Fois entre 

4933.33 F et 4933.33 + 50 = 4983.33 F 
On a gagné dix fois en précision. 
Reprenons tout cela avec cette nouvelle valeur de RM et un 
incrément IC égal à cinq francs ( encore dix fois plus faible ). 
11 suffit de reproduire la même séquence opérative. 
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28 g 1€C= 5 
35py S1=S:Hh=$8:RN-=RH#HIC 
219 S1= S1w(1+4A)-RH:H= AY A 


82ÿ IF M<D>NM THEN 319 
296 IF S1>g9 THEN 349 


34g RhH=RH—-1c 
PRINT RH —> 4768: 33 


valeur de RM à cinq francs près. 
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Ceci va nous fournir une 
On s'en contentera. 


Exercice : 
Rajoutez ce qu'il faut à ce progr7mme pour que le remboursement 
un demi franc près. 


mensuel soit galcuié à : 
3 2 
Pour votre gouverne,toujours pour les mêmes données, vous trouverez 


que 2M doit être compris entre ÿ970.39 F et &4170.837F 


Ce qui premettra de vérifier que vous avez opéré correctement. 


Vous remarquerez que cette méthode d'itération permet d'atteindre 
une précision sans cesse accrüe d2ns le calcul. 

Si à chaque Cycle on diminue dix fois le pas et si NC est le 
nombre de cycle de calcul,la précision sera en 1 VA 10N€ 


EXERCICE : 
Vous connaissez donc la somme à rembourser mensuellement 
pour un taux d'escompte,ure somme S et un nombre d'années d'emprubt 
donnés. 
Ecrivez un programme qui fournit la somme à rembourser en 
cas de remboursement 2nticipé. 
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C'est le problème inverse et il est beaucour plus simple. 
Les "entrées" du problème sont : 

L2 somme empruntée 

Le taux d'escompte 


Le remboursement mensuel,que vous venez de calculer 


L r s 
e nombre d'années au bout duquel vous décidez de solder votre 
emprunt. 

Si vous étudiez tout cela de près vous verrez que 1l2 somme 

à Tembourser chute en Fin de durée de l'emprunt ,et que cette 
chute est d'autant plus accusée que le taux d'escompte est fort: 


Si le taux d'scompte est nul,à chaque fois que vous p2yez RM, 


chaque mois,vous vous libérez de votre dette d'autant.Puisque 
vous n'avez aucun intérêt à payer. 
Et on à tout simplement dans ce cas RM = S / NM 


Situons nous à la moitié du temps de l'emprunt.Si vous remboursez 
alors prématurément et que le taux d'escompte est Fort,vous vous 
apercevez que vous devez encore presque toute 1: somme. 

Phénomène classique de l'emprunt. 
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Vous avez pu voir que votre ordinateur ne calculait p2s tout 
cela instantanément. 


Imaginez le travail si vous wviez du Faire tout cela à la main. 
11 manque quelquechose à ce programme.En effet ,que faire si 


le remboursement mensuel est inférieur au SpA F,valeur initi2le 
-de IC. 

Dans la lighe 70 on c2lcule la valeur plancher de EM. 

Si celle ci est inférieure à 500 il suffira de démarrer à 12 


ligne 180 en écrivant : 


75 IF RM € SDS THEN 189 


Et le tour est joué. 


LE but de ce cours est de vous apprendre un peu de BASIC en 

vous montrant ce qu'on peut faire avec un ordin2teur.Le chapitre. 
précédent aurait pu s'intütuler exemple de résolution de problème. 
L'inférmatique est A2fFfaire d'astuce et d'habitude. 

Il faut d'abord construire L'ALGORITHME permettant d'arriver 
au résultat ( ici une méthode itérative ).Puis bien écrire cet 
algorithme en décomcosant ch2que opér2tion. 

Enfin TRADUIRE tout cela en progrmme. 


Il n'y à j2m2is UNE Ff2Açon unique de répondre à une question posée. 
Et en tout cs ure Façon unique d'écrire le progr=mme. 
L'essentiel est que cel: marche et que cela ne prenne p2Ès un 


temps excessif. 

Faites l'expérience : prenez tout de suite une valeur de IC 
de 5F ou même de 0,5 F 

Partez de la valeur de RM égale à S x À et incrémentez. 


Bon courage..... 


.70> 
SR 


= 
_. 


/ 
4 


TOUT SUR | Le 
LES BOUCLES 


Une boucle,dans un programme,c'est une structure qui FfAit qu'une 
têche est répètée un certain nombre de fois,soit identiquement, 
soit avec une variation discrète à chaque cycle d'un ou de 
plusieurs paramètres. 


La boucle FOR NEXT 
Dsns ce type Ge boucle,le nombre de cycles est fixé à l'entrée. 


On se donne un indice ,qui n'est autre qu'un registre.Souvent les 
lettres I et J sont 2Fffectées à ce rôle.M=is cel? peut être 
n'importe quoi. 


FOR T =1 TO 56 
Pout T vari2znt de 1 à 56 


On à: vu que le point de départ de 12 boucle pouvrit aussi 
être n'importe quoi. 


FOR Z = 5 TO 9 par exemple. 


On peut Aussi partir d'une valeur négative de l'indice : 


FOR I = -4 TO 9 


La boucle FOR NEXT doit être m2rquée p2r un NEXT en fin de tîiche. 
FOR SF = 1 TO 12 
( tiche ) 


NEXT SF ( valeur suivante de l'indice SF ) 
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écrire : 
FOR T = 3 TO 78 
(tiche ) 


NEXT 


BOUCLES IMBRIQUAES 


Des boucles FOR NEXT peuvent être imbriquées les unes d2ns les 


autres,comme ceci : 


For L=1To 19 
Fort J-= 1To 5 


Ch) 


NEXT_J 
NEXTI 


Qu'on peut aussi écrire : 


FORI=ATONOE FOR JE TT OS 
(T<L.) 
NEXT:VEXT 


Dans toutes les écritures ci dessus,l'INCREMENT est automatiquement 1 


STE P EL 


Mais on peut spécifier un incrément différent ,en écrivant: 


18 FOR I=9 To Sÿ STEP S 
2g PRINT Z 
3S NEXT I 


À l'xcato 


On peut mettre des INCREMENTS NEGATIFS : 
19 FOR I=$ To D STEP -S 


26 PRINT L 
3% NEXT ZI 
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BOUCLES AVEC DES GOTO : 


Le shéma est le suivant : 


adresse de r&tour en boucle 


retour 
en 
boucle 


SH CGOTOF2ZA 


M2is attention,ubre boucle,il faut en sortir ! 


Je vous propose le programme assez surréaliste suiv2ènt : 
19 GOTO 19 


Faites RUN 

Oh horreur ,il ne se passe plus rien... 
Vous pressez sur les touches,rien ne se passe.L'ordinateur est 
enfermé dans une tîche que Freud nommait la compulsion de 
répétition. Ill réédite à l'infini une tâche.... vide.Même pap2 
Sigmund n'aurait pas osé imaginer un cas aussi parfAhit.Le seul 
ordre de ce programme consiste à aller à la ligne 10 où l'ordre 
est précisément d'aller en ligne 19 .... 

Que Faire ? 


CTRLIC 


Contràl C est l'ordre d'interruption prioritaire du programme. 
L'ordinateur réagit à ce qu'on appelle des CARACTEIRES DE 


CONTROLE. 


La touche CTRL se comporte comme yne Autre touche SHFT 


ie 
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Elle permet d'augmenter le nombre de caratères disponibles. 


Ainsi Il existe CONTROL A 
CONTROL B 


etC.... 


Ces caratères de contrôle ont des fonctions qui seront ex2minées 
chemin Ffaisant.Mais pour le moment retenons que CONTROL C 
stoppe les programmes en cours d'éxécution. 


11 faut,comme pour l2 touche SHIFT commencer par presser 
12 touche CTRL,maintenir cette pression,puis presser sur le 
caratèr 
On note ces c2ratères 


e A €R Se 


On peut stopper un programme en composant ©C et celui-ci 
d 


s'arrête en cours d'exécution,en A2ffich2nt le numéro de ligne 


qui était en train de s'exécuter.Essayons. 


Nous voyons apparaitre BREAK IN 19 


Normal.... le programme ne comprenait qu'une seule ligre ! 
Essayez mr-irterart : 


14 PRIsTe" BOUCLE INFINIS" 
2Z GOTO 17 


Et lancez. 
Ca va tellement vite que vous n'avez même pas le temps de 
voir s'inscrire le mot. 
Passons à 


18 N=N+1 
RINT N 


39 GOTO 19 


275 


Ce type de programme vous permet d'2pprécier l2 vitesse du 
retour en boucle. 
Faites de nouve2:u Control © pour 2rrèter. 


SORTIE DE BOUCLE 


Une boucle construite avec un GOTO nécéssite un système de 
sortie de boucle.Ce qui se crée à l'aide d'un TEST. 


WN=N+1 
22 IF N— 59 THEN 49 
32 GOTO 10 


49 END 


Lancez 

Il ne se p2sse 2pparemment rien.Mais vous voyez ré2pparaitre 
le signe Re2dy qui vous montre que 12 tâche ( vide ) est 
terminée. 

Cette suite d'instructions est équivalente à un 


19 FO? I = @ TO 


22 NEXT I 


Ce qui illustre le fait que des instructions sont sduvent des 
combin=isons d'instructions plus élémentaires.On peut simuler 
ce FOR NEXT avec un GOTO et un TEST de sortie de boucle. 


Ceci nous ramène au modèle du MECCANO. Certaines pièces 


sont déj2 des assemblabès de pièces plus simples.Un réducteur ser2 
par exemple un assemblage d'axes et d'engrenages. 


En Fait c'est tout l'ordinateur qui marche ainsi. Au niveÂ2u 
le plus élémentaire ,au niveau du langage machine,l2a seule chose 
que sait faire l'ordinateur c'est incrémenter d'une unité,ou 
décrémenter d'une unité,et comparer entre eux des registres qui 
n'ont que deux positions : ÆZ ou 1 


M, 


C'est à partir de cette mécanique de base que l'on à tout imaginé. 
Un premier niveau est l'érrchitdcture du microprocesseur.Puis il 
y à le niveau du langage sur lequel on travaille. 


En bas,tout en b2s,c'est un remue ménage infernal de 
1 et de Ÿ .Rien d'autre. 


Revenons à nos boucles : 


18 N=5 
22 N = N +5 : PRINT N 


Rue DELL PJ ali à fmole 


52 END 


Ici l'incrément 2 là: valeur 5. 
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Le test de sortie peut porter sur une inégalité. 
x te : 10 P= 45 
20 P = 45 + 23.78 


30 IF P »= 456.89 THEN 50 
40 GOTO 20 


SOEND 


Avec ce système on peut évidemment créer des BOUCLES IMBRIQUEES. 


Mais dans le travail précédent ( pages 65 et suivantes }) 
On à créé une structurede boucle avec le TEST lui-même. 


Rappelez vous : 


$ÿS 1C=S Ph. 
 … .H=g:RMH=AN+IC 


É Sa= SA x(1+4)-Rh : = ATA 
12 IFH<7NUTHEN 119% 


Dégageons dans ceci l2 structüre essentielle.Il y à une 
incrémentation sur M et un tist : 


14$g M=A+4 
129$ IFU<S>Nh THEN 


On à une valeur entière de NM. 
M est incrémenté et l2 boucle continue de fonctionner tant que 
M n'est pas égal à NM. 
Le reste,c'est 12 tiche. 


En fait notre programme comportait deux boucles imbriquées. 


Avec deux incrémrentations,l'une portant sur M et l'Autre sur RM 


Voici le progr2mme : 1 


té S1= S1% (1+4)-R 
A2sSIFHh<> NM THEN MZ 
13 IFSA>S THEN LES 


) &4 


En enlevant ce qui est t$che ,il reste : 


189 

11 8 

128 IE H<ZWATHEN 118 
APCE ee TREMERE 


Ici ce sont des tests qui qui créent le retour en boucle et 


qui provoquent la sortie de boucle. 


TEMPORISATION 


Une boucle vide veut servir à créer un temps d'attente dans un 
programme.Par exemple : 


FOR T = 1 TO 500 


Cette suite peut figurer sous forme de sous programme : 


10000 2EM TEMPORISATION 
10019 FOR T = 1 TO 500 
10020 NEXT T 

10999 RETURN 
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On pourra créer ce temps d'attente à une certaine ét2pe 


d'un programme en appelant ce sous programme temporisation 
avec un GOSUB 10000 


WAÏT 


L'ORIC possède une instruction de temporisation. 

WAIT 50 créer: une paude dans le programme équiv-lente à 
cinquante Fois dix millièmes de sconde. 

La encore nous voyons que les instructions comme WAIT ressemblent 
à des sous programmes codés.Nous pouvons simuler un WAIT 


Ecrivons le sous programme YAÏIT : 


10000 RZM SOUS PROGRAMME WAIT 
10010 FOR Z = # TO T 

10020 NEXT Z 

10999 2ETURN 


Dans le progr2mme,pour simuler cette instruction WAIT il Faudrait 


faire : 
T = 50 


GOSUB 10000 


Premier temps : on définit le temps d'attente 

Puis on appelle le programme ée temporisation. 

( Ceci dit,dans ce c2s là il est possible que le temps d'attente 
ne soit pas le même,mais ce qui compte,c'est l'intention...) 


tilisez l'instruction YAIT 


Utilisez l'instruction PAPER ( si vous 2vez 12 couleur ) 


Créez un programme qui ch2nge l2 couleur de l'écran 


NB on rappelle qu'il y 2 huit couleurs disponibles indicées 


On va se reposer maintenant un petit peu en envisageÂnt un 
programme plus simple que le difficile programme de calcul 
du remboursement mensuel d'emprunt. 


Un numéré de sécurité soci-le est une suite de chiffres qui 
réalisent un cod2È2ge. 
Le premier chiffre peut être un 1 ou un 2 
1 signifie que le sujet est du sexe masculin 
2 signifie que le sujet est du sexe féminin 
Il n'y à pas d'autre nombre possible i 
Les deux chiffres suivants donnent l'année de naissance 
Les deux chiffres suivants le mois de naissances . 
Les deux chiffres suivants le département où le sujet est né. 
Les quatre chiffres qui suivent se réfèrent à un cod2ge de 12 
localité de la naissance et de du numéro d'entrée en scène du 
sujet le jour de sa naissance dans cette localité. 
Nous voulons écrire un programme où l'entrée soit précisément 
ce numéro de sécu,ou plutôt ses.sept premiers chiffres.Le 
programme va décoder ce numéro. 

Cela commencer: donc par 


19 CLS : REM EFFACAGE ECRAN 
20 INPUT "DONNEZ LES SEPT PREMIERS CHIFFRES DE 
VOTRE NUMERO DE SECU";NS 


Cèmment pourrons nous isoler les chiffres ? 


BpS=NS/n1gavddd 

ægS =INT(S) 

SÉIFS = A THEN PRINT "VOUSE TES 
DU SEXE MASCULIN": GOTOor2S 
6GIFS-2 THEN PRINT'VOUS ETES DU 
SEXE FENININ": Gb To RS 


+9 FOTois 
8S REM 


(1 


{| 
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Dans 12 ligne 30 on divise NS p2r 1000000 
A la ligne 40 on prend 12 partie entière de cette quantité. 


Exemple: NS = 1370475 
S= 1.370475 
INT(S) donne 1 


Deux tests produisent les interprètations souhaitées.MAais 
si le premier chiffre n'était ni un 1 ni un 2 la ligne 70 
renvoit à l'ordre INPUT et rebelote. … 
Le premier chiffre Ayant été analysé,comment extraire les deux 
suivants ? 
Voilà la solution : 
S est le registre qui contient donc ce premier chiffre ( 1 ou 2 ). 


Si je reprends NS et que j'enlève S x 1000000 il me restera2 
12 suite. 
Er j'écrirai 


89 S=NS - S x 1000000 
Puis: 

90 AN= S/ 10000 - . 

100 AN = INT ( AN ) 


Lancez,vérifiez,vous 2vez bien ces deux chiffres. 


Vous 21lez pouvoir écrire : 


110 PRINT"VOUS ETES NE EN 19"; AN 
et 
120 S = S - AN x 40000 


132M = INT(S / 468) 


Ce registre M représente vérifiez le mois de naissance. 
I1 £faudr2 21lors écrire une suite de douze test destinés à 
créer un registre M $ conten=nt là chaine de car2ctère du mois. 
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140 IF M = 1 THEN M $ ="JANVIER" :GOTO 1000 
150 IF M = 2 THEN m $ ="FEVRIER" / GOTO 1000 
etc..etC..e 

et: 

1000 PRINT"AU MOIS DE "; M $ 


EXERCICE : terminez ce programme et débrouillez vous pour 


isoler les deux derniers chiffres.Puis créez les tests qui 
qui définiront D $ , le département de naissance. 


EDITEUR 
DE LORIC 


Quané vous travaillez avec votre ordinateur,vous écrivez des 


textes sur l'écran,et les erreurs sont sans doute nombreuses. 
Nous 2vons vu‘que 12 touche DEL permettait d'annuler un car2ctère 


erroné,ou même ,en rééé,tant la: fr-ppe de cette touche ,plusieurs. 


CONTROL X_. 


Si vous avez tapé quelquechose de vraiment déconnant ,un orére 
que vous voulez annuler,composez tri X 

Le signe \ apparaitra et tous les caratères frappés seront 
"oubliés" ,c'est à dire qu'ils ne seront p2s envoyés dans 
l'interprèteur BASIC. 


C'est le "AUTANT POUR MOI". 
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Au bout d'un certain temps vous finirez p2r manipuler des 
programmes qui ne pourront plus être affichés d'un coup sur 
l'écran.ils seront trop longs. 


Quand vous faites LIST le programme se met à défiler.Vous pouvez 
arrèter ce défilement en pressant simplement sur l2 b2rre 
d'espacement.Une nouvelle pression relancera ce défilement. 

Très commode..... 

( Sur L'APPLE II la commande équivalente est CtrilS ). 

Vous pouvez stopeæer définitivement ce défilement en faisant Ctril C 


MODIFIER UNE LIGNE DU PROGRAMME 


Jusqu'ici pour modifier une ligne nous nous sommes contentés 
de 12 retaper complétement. 


Noter qu'une ligne de l'ORIC ne saurait excèder 78 caractères. 
Voici une ligne erronée : 
40° AN = INT(AN) ; GOTO 1000 


Vous avez tapé un point virgule 2u léeu de deux points. 
Commencez par utiliser les touches porteuses de flêches pour 


amener le curseur immédiatement à g2uche de la 1igne,comme ceci: 


H4+s ANzINT(AN),; GOTo 1822 


La commande Ctrl 4 va entrainer le déplacement du curseur vers 

la droite. Si vous maintenez 12 touche Ctrl pressée et que vous 
pressiez plusieurs fois sur la touche A,vous obtiendrez autant 

de déplacements succesifs vers la droite. 

Vous pouvez aussi bien maintenair l'ensemble Ctrl A pressé, auquel 
c2s,après un temps d'attente,le cirseur va partir tout seul.Et 
avec un peu de chance et d'adresse vous pourrez le faire atterrir 


pile sur l'endroit litigieux. 
En agissant Ainsi,vous RECOPIEZ la làgne. 
Quand vous êtes sur le caractère à modifier,pressez la bonne touche. 


Mais attention,il faut recopier TOUTE LA LIGNE ,c'est à dire finir 
de la b2l2yer 2vec Ctrl 4. 


Voilà. 
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Ceci est p2rticulier à 1l1'O?IC.Sur l'APPLE II 12 procédure est 


différente. 
CLS vide l'écran.Mais il subsiste le message Ready. 


Ctrl L vide complêtement l'écran. 


TRON TROFF 


L'instruction TRON,incluse dans un programme, va provoquer 
l'affichage , entre deux crochets, du numéro de ligne qui est 
effectué.TROFF annulle cet affichAhge.Cel2a peut Être commode 


iors d'une recherche d'erreur. 


Voilà l'essentiel de l'EDITEUR de l'ORIC. 


# 
n 
un 
L 
5 
+ 
+4 
ù 
u 


Nous Allons passer à quelquechose de très inté 


instructions de 


TRAITEMENT 
E TEXTE 


Nous avons vu qu'un ordinateur pouvait opérer sur deux 


È 
des CHAINES DE CARATERES.Placées dans des registres suivis 
du signe "doll2È2r" 8. 


objets différents.Des rombres,placés dans des registres numériques. 
T 


LEN 


Cette instruction LEN permet de calculer la longueur de la chaine, 
le noñbre de caractères qu'elle, contient. 


10 CLS 
20 INPUT"DONNEZ VOTRE CHAINE";:e $ 
30 L = LEN (c#) 


40 PRINT'CETTE CHAINE FAIT ";L;" CARACTERES" 


LEFT $ 


Cette instruction permet de prélever un certain nombre de 


caratères à partir de 12 gauche. 
5 CLS 
10 INPUT"'DONNER CHAINE"; C # 
20 ?:?7"COMBIEN DE CARACTERES VOULEZ-VOUS" 
30 ?:7. A PARTIR DE LA GAUCHE" 
40 ? : INPUT N 
: G$ = LEFT$(C#,N) 
PR G$ 


Réalise la même opération,mais à rartir de la droite. 


Exercice : Modifiez ce court programme avec R$= RIGHTS(CS,N) 
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| 
Cette instruction permet de créer une SOUS-CHAINE de caratères 
pîquée au beau milieu d'une autre chaine. 


Soit 12 chaine : les pantoufles sont cheres 


Le registre M$ = MID$(C$,5,10) contient PANTOUFLES 


Entre parenthèses d'2bord 12 chaine à traiter 
puis la cote du caractère de début de sous chaine 
puis 12 longueur de cette sous chaine. 


5 CLS 

10 INPUT'DONNEZ CHAINE";CS$ 

20?:?"POUR CREER UNE SOUS CHAINE,DONNEZ 1E NUMERO" 
30 ?:?7"DU CARATERE DE DEBUT DE SOUS-CHAINE" 

40 INPUT N 

59 ?:?3DONNEZ ENSUITE LA LONGUEUR SOUS-CHAINE" 

60 INPUT L 


70 M$ = MIDS#(CS,N,L) 


80 7:73 CETTE SOUS CHAINE EST:" 
SO 7:97 MS 


ATTENTION LES BLANCS SONT DES CARATERES COMME LES AUTRES. 
Nous allons créer un programme classique qui,à partir d'une phrAse, 
isole les mots les uns 2près les autres. 

Cel2: commencer: par 


5 CLS 
10 ?'DONNEZ UNE PHRASE" 
20 INPUT P$ 


872 


ISOLER 
DES MOTS == 
CONCATENATION: 


On peut souder deux ch=ines de caractères entre elles,pour 
former une nouvelle chaine qui soit la REUNION des deux. 


11 suffit de faire: 
C$ = Cc18 + Cc28 tout simplement. 


Nous 21llons ici ajouter à cette chaine P$ un caractère bl2nc. 


30 P$ = PS +" nn 
Ceci trouvera plus loin s2 justification. 


La façon d'isoler les mots est simple.Nous allons parcourir la 
chaine ,caratère après caratère,jusqu'à ce que nous trouvions soit 
un blanc,soit une aposttophe.Nous nous arrèterons à2lors et nous 
prélèverons ce mot avec un LEFTS$ 

Puis nous rempliacerons P$ par ce qui reste,à droite,à l'Aide 
g'un RIGET$.Et nous reprendrons cette voération autant de fois 
qu'il le faudrà2. | 

On s'2rrèter2 quand on 2rrivera au bout de 12 chaine PS. 
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La longueur de là chaine est L 
Nous allons p2rcourir la chaine selon un indice I : 


== 
M$: CHAINE 


__— 
Es car a ZA 


[CHAT NE RE ISARAQTEIREST | 
noel : 


Dre) 


Mg = D[E] 


PTET TA RIATCITENRIEIS 
où 


Traéuisons 


REM MISE 
Z +1 : REM 


MID$(PS,1,1) : 


59 I 
éz I: 
72 C$ = 
8@ IF CS <> " ” AND 


u 
© 


Et le tour est joué. 

In €/ on incrémente,on 22 
72 on isols le I car=ctè 
34 Tant que Ce caractère 
on continue. 


ZA 
TT 


4 ISOLEZ UN 
C$ (LEE TÉZN 6g 


ces petits dessins en progr2mme. 


à ZE20 COMPTEUX CA24CTS253 


INCREMENTATION 


CAZATT 


: 
l 


n'est ni un blanc ni une 2postrophe 


Mais si ce test est négatif,c'est qu'on est à la fin d'un rot. 


Le mot est 21l0ors créé,en 
chaine.On imprime le mot. 
On calcule l2 longueur de 


qu'on est arrivé à la Fin 
Sinon on va isoler ce qui 
Zarstères de ‘roite.zt on 


prenant les I-1 premiers caratères de 


la chaine P$.5i L est égal à I c'est 


[EU 
AU 


00 


Faisons un essai. 
PUX 


Phrase 
J'AIME LE JAMBON ET LA SAUCISSE 


C2 marche.... 


Nous 2vons écrit les mots successifs sur l'écran.MA3is nous n 


les avons p25 mémorisés.Si ce bout de programme dev2it être le 


préambule à un traitement de 12 phrase,nous ne serions p2s plus 
avancés.Ii nous faudrait créer un FICHIER de ces mots.Un fichier 


M$(I 


sde: 


Voici le programme qui va constituer ce fichier des mots de 1 
ÉCLS 
2 OPRINT “VOTRE PHRASE " : PRINT 
3B INPUT PS : PRINT 
kD PS=P$+" 
SéT-# 
6g T=73+1 
76I-6 
8 1=I+1 


A3 C$=MIiD#$CP$, 1,1) 
lg IF cg<>"" AND Cé<> "THEN 39 


MDMS(T|= LEFTH(PH, 1-1) 
126 PRINT M$) 

136 L=LEN (P$) 

I#HDIF L=2I THENI79 
IF D PH=RIGHTS(p#,L-1) 
l68 GoTo 69 

[+9 FOR y = 1 TÔ J 

Ifé PRINT MCE) PRINT 
149 VEXT K 

2p$ € ND 
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En 50 on met à zéro le compteur de mots 
En 60 on incrémente ce compteur 
En @0 or commence le parcours de 12 chaine qu'on poursuivra 


tant que ( ligne 100 }) le c?ractère isolé n'est p2s un blanc 


ou une =2postrophe. 
Sinon en 110 on crée le J® mot. 
Etc... 


En 170,en fin de programre,on 2fficheràa tous les mots isolés. 


FICHIERS 


On peut donc,dans 12 mémoire de l'ordinateur,organiser les 
données en créant la possibilité de les repérer avec un ou 
plusieurs indices. 


Ag (=) B C1). 
C£(zi] DCT,)1) 
ELÉ (C3) FA (z,3,K) 


Quand le répérage se Fait avec plusieurs indices or 2ppelle 
ceci des TABLEAUX. 


93e 


On peut ainsi créer des Ffichiers,des tableaux à indices. Tous 
les noms possibles de - ‘ variables peuvent être indicé.s. 


A(I) CG(J) P1$(K) etc... 
A priori la machine tolère des indices 2ll2nt de 9 ( qui comote 


comme indice possible ) )à 9. 
Au delà ,problèmes.... 


Faites ? S(12) 


Vous obtenez 
? BAD SUBSCRIPT ER2O2 


Erreur d'indice. 
Pour manipuler des indices supérieurs à 9 ülfAaut créer ces fichiers 
en mémoire à l'aide d'ordreé de dimensionnement DIM. 


Supposns que je veuille manipuler un fichier S(I) où I peut 
aller de zéro à 329. 
Simple,je dois mettre en tête de progr2mre : 


DIM 5(329) 
ATTENTION ,on ne peut lire deux Fois un ordre dim en effectuant 
un programme.Si vous mettez par exemple un DIM dans une boucle 
vous obtiendrez le message d'erreur : 
? REDI"M'D ARRAY ERRO? 


Si vous 2vez plusieurs tAableÂ2ux vous pouvez simplement mettre : 


15 Dbih S(32g), PR(12) ,Sc (4$) 
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PROCEDURE DE 


RÉPONSE PAR 
OUI /NOW 


Ce cours n'est p2s destiné qu'aux étudiants littéraires,ou 2ux 


manisques de l'intelligence 2rtificielle.Il va comprendre une 
petite initiÈtion à l- gestion. 
Il est bon d'envis2ger,ou l2 procédure de choix 2ppelée MENU 


qu'on à vu plus haut,les procédires Avec réponse oui du non. 


On peut supposer que,quelquepart dans le programme ,on. poser» 
une question: 


1159 INBUT"VOULEZ-VOUS EFFECTUER UNE AUTRE SAISIE ? ";R$ 


L: réponse ét2nt évidemment consignée dans le registre Rf$. 
On fuhzite qu'elle soit oui ou non. 


La répinse OUI renvoit par exemple à l'adresse 1999.E, 12 réponse 


+ 
NON à 12 suite du progr2mme.MA2is il Faut éliminer une répënse 2utre 


que non.On écrira : 


HéSIFRÉ="OUI" THEN 12e 


NO | UP IF NOT(RS S'NON") THEN LES 
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Cette dernière ligne signifiant : 
Si 2$ N'EST PAS "NON". 


Mais celà peut sembler 2ssez long de tA2per les trois lettres 
d'une réponse OUI ou NON.On aAimerait se contenter de O et de N. 
Mais que faire si certains utilisateurs répondent BUI et d'Autres 
simplement O ? | 


On écrir2,en utilisant l'instruction de traitement de chAine 
LEFT $ 


l6S IF LEFT ÉCRÉ,1) = "O" THEN D 


[Er |F NoT( LEFTÉCRE ,1) = "N° THEN lISg 


Ce qui veut dire : 


SI LA PREMIERE LETTRE DE LA REPOSSE EST UN O ALLER EN 1999 
SI LA PREMIERE LETTRE DE LA REPONSE N'EST PAS UN N ALLER EN 1159 


C'est 12 solution cl2:ssque. 


A partir de là nous 2llons commencer à constituer un progr2mme 
de gestion.Les étudiants littéraires devront lire cette p2rtie. 
Car c'est un bon 2prrentiss-2ge de l'informagique,qui n'est du début 
à là Fin qu'une perpétuelle gesÿion de données. 
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ELEMENTS DE 
GESTION 


Dans ce qui v2 suivre on v2 donner un progr2mme de gestion de 
comptes . Programme qui ser: gèré pr un VENU pfésentènt 


plusieurs choix 


CREER UN FICHIER-CLIENTS 
COMPLETER UN FICHIER-CLIENTS 
CONSULTER UN FICHIER-CLIENTS 
METPRE 4 JOUR UN COMPTE-CLIENT 
RELANCER LES IMPAVES 


ANALYSER LES COMPTES-CLIENTS 


Ch2QUE CHOIX RENVOYANT & UN SOUS PROGRAMME. 
On écrir2 d'abord le programme MENU,puis ces sous programmes. 


Nous 21lons manipuler un cert2=in nombre de VARIABLES.DAans des 
fichiers. 
N$ v= représenter le nom des clients 
R$ s2 rue 
A2$ l'2rrondissement 
V$ 12 ville où il réside 


à 
P$ le pÈ2ys 


CC: son conpte-ciient. ( vatof(o ONU NCE le reg 
Non ci, ce La rot) 


20e 


Combien de clients pouvons nous prendre en charge 2vec un ORIC ? 
Tout commencer: p2r un ordre de réservation de places mémoire. 


On peut effectuer ce dimensionnement en commande directe,sans 
passer par un programme.M2is le programme sera une solution plus 
commode pour répondre vite à la question que nous nous posons. 
Ecrivons; 


19 REM PROGRAMME DE GESTION DE COMPTES-CLIENTS 
29 REM RESERVATION DES PLACES EN MEMOIRE 
25 INPUTN 


39 DIM N$(N),RS(N),ARS(N),VS(N),PS(N),CCS(N) 


Faites RUN,avec différentes valeurs de N ( remr2gqquez que l'ordi- 
nateur n'est pas gène de l2 présence de N et de N$,qui sont trhité: 


comme deux objets <if£férents.) 


Fa ites N=199 
p2s de problème 
Fsites N=2999 


Message : ? OUT OF MEMORY ERROR IN 29 


Eh oui,1l: capacité mémoire n'est pa3 infinie.Ilci vous n'utilisez 
l'ORIC que comme cl2sseur.Vous lui demandez de se transformer en 
une suite de six fichiers,les cinq premiers servant à stocker des 
chzines de car2tères et le dernier des quantitéé numériques. 

Par approximations successives vous verrez que votre mémoire 
se trouve remplie pour N = 1961. 


Est-ce à dire qu'on pourrait TRAITER 1961 clients dans ce 
programme.Non.Car il Faut mén2ger une place pour le programme. 
Données et programme sont stockés indifféremment d2ns m=> MEMOIRE 
UNIQUE de cet ordin2teur.Il n'y 2 pas comme dans certaines c2lculett 


deS secteurs fixés à l'avance et intitulés : MEMOIRE DONNEES et 


MEMOIRE PROGRAMME. 
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C'est ce qui donne le maximum de souplesse car 21lors on peut 


choisir entre 


gros progr2mme tr2v2illant sur peu de données 


programme tenant peu de place en mémoire,miis be=ucoup 
de données. 


Reprenons ce programme.Enlevohs cette ligne provisoire 25 et 
écrivons 


BEM Prponne L ga Le ge, Lu É 
Lo Rem Rest n 4 Placer un nimes © 


3ÉDIM VÉ(too), RÉ (ge), Ab ÉCrge), VÉ( to), 
PÉCtpG), CE (ape) 


Autrement dit cent clients. 


5 2 12 fin de 12 constitition de cé progr2mre vous pourrez 
essAayer de monter les DIL pour voir quel nombre de clients vous 


pourriez gèrer Aavec.Je vous lrisse ce tr2v-il à titre d'exercice }). 


Ecrins le progr=mme MENU. 


On veut,sur 1l' écran : VOULEZ-VOUS 
1-CREER UN FICHIER CLIENTS 
2=-COMPLETERSUN FICHIER CLIENTS 
3-CONSULTER UN FICHIER-CLIENTS 
4-METTRE A JOUR UN COMPTE-CLIENT 
5-RELANCER LES IMPAVES 
6—-ANALYSER LES COMPTES-CLIENTS 
-SORTIR DU PROGRAMME 


VOTRE CHOIX ? 


| . ùA 
4Æ 4 
e _ VIS 
1ÿg CLS 
119 Ren PROCRANHAE MENK 
128 PRINT" VOULEZ-VOUS : + PRINT 
T3 PRINT "A ceee un FICHIER Cris: PRINT 


FOPRINT"2-conpierer Fichieg-cuien TS‘: PRINT 
ISÉPRNT"-GNcuuTER Fichier. ci LENTS "PRINT 
IS PRINT A HETTRE A Jour COMPTE- CLIENT “2 
[TS PRUT"E-PEL ANcep LRPAYES" : PRINT 

[32 PRINT UE AWALyseR COMPTES- CUENTS”. PR 
(Sg PRINT GS -SaR TIR pu PROGPAMAE "PRINT 
286 INPUT "VOTRE cHoi x MRC PRLNT 

216 Î[FC=S THEN END 

228 ONC EOSUR Lad6, Lis ,3 di, pds, SA , Égia 


249 REN RETOUR HENU 
385 EOTO 729 


129 
On rem2rquera que là sortie de programme est l'option 9. 
Ceci laisse de 12 place dans ce menu pour d'autres options 7 et 8 


qui renverrhaient à ds sous programmes 7999 et 8999 ,non encore 
existants. 

Seule l'option 9 permet de sortir du programme.On est enefermé 
dans cette boucle du MENU,ou l'on cercle.L'option 9 =ssurant 


12 SORTIE DE BOUCLE. 
Evidemment on à p2s tenu compte des réponses AberrAntes. 


Ce qu'on pourr=: faire en écr2vAnt une ligne 
DIS HE CET AND CCS LANDCESTIANDECTF 
AND CE > ANDESDSANDCE? F AND 


CLDE AND CD THEN 2e 


Toute autre répohse que 1,2,3,4,5,6,7,8,9 renvoit 2u questionne 
ment 299 

Mais que se passer2-t-il par exemple si le sujet répond p2r 12 
lettre O,ou par uncarÈrtère. 

L? saisie ne se Fera pas 

Mess2ge ORIC : 

? REDO FROM START 

VOTRE CHOIX ? 

Rebelote.Le problèmes est bien verouillé. 


Bon,plus qu'à écrire les sous-programmes. 


APfRER CONSTITUTION FICHIER CUENTS 
(SL6 REM CISTE CUENTS + LEUR COHPTES 


[HiS CLS LL | 
1B9# 1-8: REA (NITALSER VARIABLE I 
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[D4% T- Trn:ken INCREMENTER Z 
LgCS INPUT Won EUE NT “> N$Cz): PRCUT 
(BG PRINT “CON ADRESSE ‘: PEINT 
(#95 INPUT'NOn RUE"; RC] : PRINT 
1682 INPUT NUMERO; NÉ : PRINT 
lg fg REM CONCATENATION : 

ï “ gue." + RÉCz) 
l1ég RG): Ng + RUE. 


Voilà qui donne une st2nd2réisAation de cette shisie. 
Il est inutile de créer un fichier pour les mÈxsx numéros dans 


les rues.On effectue donc une s2isie provisoire du nüméro, 


Considéré comme un car2ctère,dans le registre N$.Puis on sAisit 
1: rue dans R$(I).Enäâin on transforme le registre R$(I) 


par CONCATENATION ( CATENA veut dire en l2tin chine }). 


Si 12 rue est CLEMENCEAU et le numéro 6 2près conc2tén2tion 
le registre R$(I) contient 12 chaine 6 RUE CLEMENEEAU 


Et le tour est joué. 


“Lee “5 VÉCZ) : PRONT 
l& A ee NT:'s A REC): PRINT 


25 INPUT PANS" ; PSC) PRINT 
[13 g INPUT “COMPTE CC T) 


L= saisie client est terminée.M=is que se p2sse-t-il si on > 
fait une erreur ? on risque de planter toute l'2£faire.Il faut 


donc introduire une séquence de vérific2tion : 
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[IE ces 

(CS PRINT IL S'AGIT DIEN DE : PRINT 
Egg PRINT NÉC3) : PRINT 

[+ PRINT R ÉCx) : PRINT 

Le € Pan eos MR El any AG PRINT 
L448 PRINT'COHPTE :"; CCCz) ;" F'PRAT 
(2p# INPUT “copkRecT!! ;P£ : PRINT 


DIS (F LEFTÉ(RS, 1) 2 UN THEN CLS: 
GOTO l8TA 


Si la réponse est NON ou plutôt si l2 première lettre de cette 
réponse est N Alors on retourne en 1959 Après effA2ç2ge écran,et 
rebelote. 


Mais l'indice I n'est p25s modifié.Ce qui fait que ce sera toujours 
le même client.Les valeurs saisies N$(I) predront 12 place des 
précédentes et la correction sera autom2tiquement effectuée. 

Si 12 xx s2isie à été effectuée correctement, suite du sous progr2mme 


FETE CES | 
| 273% | NPUT 5 UN AUTÈÊE CUENT "a R£ 


[2eg IF LEFT CEÉ,1J:"0" THEN CES: 
Gi TO 1D4gS 


On se rebr=2nche 2lors sur 12 line ré2lisant l'incrément-2tion sur I 
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Si on ne veut pas d'autre client,suite du sous progr2mme: 


On stocke dans le registre NC le nombre de clients du fichier. 
TICBNECST rCLS 
1449 RETURN 


Ce programme de constitution de Fichier clients ne sera exécuté 
qu'une £fois.Et on retourner: 4u menu.Pour introduire un nouveau 


. 


client on utiliser: l'option 2 
Lago RE COMPLETER FICHIER. CLIENTS 
2gigs CLS 
20 28 PRINT"'CE FICHIER CONTIENT NC; CLIENT, 
263% PRINT: Nc= NC+ 7 
22455 PRINT NOUVEAU CUIENT: “ePLINT 


2658 INPUT “Won “>: NÉCNc) :RINT 


Ici,surprise : l'indice à changé ! 

Alors ? Ça n'est plus le rême fichier ? 

P2s du tout.Ce qui compte,ç2 n'est p2s l2: ou les lettres qui 
désignent l'indice,m2is la valeur NUMERIQUE qui se trouve d2ns 
ce registre. 

Si on stocke une ch3ine de Caractères dans N$(I) ou NS(NC) 

ou N$(K) ou N$( n'importe quoi...) si les contenus des registres 
sont 1es mêres,cel? atterrira dans le même élément de ce Fichier. 
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26 6g PRinT"ADEESSE" : FRINT 
2@ 4 INpoT Non ve LA Ave"; RéCNc) PRINT 
2H FT INPUT UNE Bo oAus «A RUE" ; NÉ: PRINT 
2 gta Récne) = Nf+" Rue “+ R FUN) 
2985 INPUT vivre"; VÉCNE) : PRINT 
244$ INPUT” ÆRÉONDISEHENT “ ; À R $ (NC) :FRINT 
2189 INPUT PANS "; PECNE] : PRINT 
2169 INPUT COMPTE =! ; CC CNe) PRINT 
26 PRINT IL S'AGT REN DE" :PRINT 
212% PRINT NÉUNc) 
2/35 PRINT R CN) 
Di4S PRINT VÉCue) ; "- "; ARg (Nc) 
21S 6 PRINT P ÉCNe) 
dé RINT Comptes T pCCCNe)5 TE TEURNT 
Ca INPUT coRREer Ses 
218S FLEETÉ(RY, 1] ="C" THEN 22/9 
2149 CLS : EOTD 26 5 
2 21 INPUT! ON AUT RE CUENT ” ; ES : PRINT 
210 16 LEFTE(LÉ,1)-"0" THEN 2629 
2444 RETURN 
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Passons à l'option 3 


JogeeEeh cCONSUTATI ON FICHIER. CLIENTS 
BSig CLS 

35 PRINT "VOULEZ- VOUS :": PRINT 

Ta3g PRINT EX AMÎNER UN COHPTE 
CONNAISANT LE : ": PRINT 

DÉ4g PRINT 1- NON DU CU ENT: PRINT 
2166 PRINT 2- NUMEBO Du CU'ENT :FRINT 
36C£ LUPUT'VUTRE CHOx "> C 

Jhy(F Ces AND C<>2 THENCLS : 
GATO 392$ 

75 IFC=1THEN GOSUO 77 dep 
Fab iFe=z2THEN GoSUi 11 fie 

9464 RETURW : 


Voici un sous-progr=mme qui contient lui-même un SOUS-MENU à 
deux options,renvoyant à deux autres sous progr>2mmes 10000 et 11000 


On les écrirà tout à l'heure... 


En Fait cette sous-tiche constitu2nt à rechercher le client, soit 
par son numéro,soit à l'2ide de son nom,reviendràA plusieurs fois 
dans les options suivantes.RAison de plus pour renvoyer celà 
dans des sous progr2mmes. 


Log REM Mise A JOUR COMPTE -CUUENT 
Up CLS | 

46 Le PRINT "4- VOUS COMNALSSEZ LE NOM 
DU CUENT  : PRINT 

kg 3g VRINT ‘2 VOUS COUMASSER SOW 
NÜHEËRO DE COMPTE" : PEINT 

kytg FL=D:REM MfE A 2El0 FLAC 
Yp SS INPUT “VOTRE CHoix ";C 

pe 1F CES AAND CDI THEN up 
Ugts \E C= 1 THEN GOSUR /5 sd 
Eutg lF C= 2 THEN Eo SUB 2 


Qu'21llons nous mettre dans ces sous progr2mmes 10000 et 11000 ? 


Nous 21lons nous en préoccupper m2intenant. 
On voit donc qu'on paut composer les sous programmes d2ns un 
ordre quelconque ( à condition que l'ensemble reste cohérent ! ) 


L'ordinateur met tout cela é2ns l'ordre. 
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AD DOTE M EXAMEN DE COMPTE NOM NATIF 
10216 CLS . 
A9p1 INPUT NOM DU CUENT ; NE PRINT 


16995 I=# 
ABD4S T=lirL :EEN (UNCRERENTATION 


AygTÉ |F NÉ =NÉCG)THEN Fl=1 

PRINT COMPTE ="; CCC1);" F  : WAÏT3% 
EoTo 1# 44 | 
IGS CS EF I= NC THEN PRINT "NOM HoBS 
FicmeRr": WAÏT 3jff : COTO 16749 

(d#g7# FOTO /céfe 


(Y 549 RE TUE 


Cette séquence mérite quelques écl2ircissements. 
En 19939 on met I à zéro ( initi2lis2tion de la variable ). 
Suit une "boucle d'explor2tion de fichier".avec une incrément2tion. 
On recherche le nom du client en p2rcourAnt tout le fichier N$(I). 
en 12959 un test.Si le nom N$ est trouvé,c'est à dire s'il 
s'identifie à un élément N$(I) 2lors le FLAG F ( qui n'est 
qu'un registre quiconque : servrnt de FLAG ) est positionné 
à 1.0n imprime le renseignement demandé,avec un ordre de temporis2È- 
tion WAIT.Le temps d'Affich2ge doit être suffisant pour permettre 
à l'opérateur de noter,le c=s échéant. 
Si le nom 2 été trouvé,ünutile de poursuivre et on renvoit en 
10999 ,au RETURN de 12 fin de sous tfche recherche du client. 
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Suppogens que le nom ne soit pas dans le fichier.L2 boucle 
va se poursuivre jusqu'à ce que I = NC.Le fichier 2 21lors 
été exploré complêtement.On donne 21lors l'information 

NOM HORS FICHIER 


Et le FLAG N'AURA PAS ETE MIS A 1 ! 


Qu'est-ce donc qu'un FLAG ? 


C'est une mémoire de 1> chose fhite: 
En 4949 on = initi-zlisé le FLAG à zéro.On part donc du fait 


qu'on ne conn=2it ps le nom du client. 


Si le client est trouvé,le FLAG ser: mis à 1.0n pourr2 se 
servir de cette information p2r l2 suite.Inutile d'opérer sur 
un compte si on sz2it pertinement que le client N'EST PAS d2ns 
le fichier. 


P=ssons à 12 recherche selon le numéro du client. 


11p6g REH CONSUL TATION FICHIER FAR NURERO 


A1018# CLS | ; | 
119% INPUT 'NUHEZO pu CUENT DEP LNT 


119 18 1F T>ACTREN PRINT NU AE Lo Ko 
ricuer": WAÎT 385 : To 1444 

aigus PRINT Won Du cULENT" > MÉCT) :PRINT 
115 C6 PRINT"COMPTE MP de D -ORE 
WAiT 39% : FL = 7 

14 444 Ê E TURN 


Si le client à été trouvé ( si son numéro n'excède p25s 
le nombre de client du Fichier : NC ) le Ffl2g est "Armé". 
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Revenons à notre sous-programme 4999 


EDG IF FL=g THEN PENT "ERREUR ‘: 
WAÎT Igg : G0oTo 4343 
Le client n'2 p2s été trouvé ( le flag est resté nul ) 
'upgtp PECNT"IL S'AGIT RiEU DE : "à PRNT 
CESR PRINT NS$Cz) : PRINT 
Us 38 PRINT COMPTE :! CC)" "ET afro 
Le registre I contient le numéro éu client dns les deux c25 de 
figure.Soit ( routine 11999 ) on l'a donné au clavier. Soit 
( routine 19999 ) i1 à été défini dans 12 boucle d'explor2tion. 
Egg PRUNTNINDiauUEez L'OPERATI ON, PouR 
UN REGUERENT" : PRINT 
Ulig PRNT'FAITES PRECEDER O'UN +" :PRIUT 
Uigg PRINT POUR UN DERIT , D'UN —": PRINT 
4136 INPUT MONTANT DE L'OPERATION  ; OP: PRINT 
Kyd Ce Cz\ = CET) + 
dit PRINT'INOUVEL ETAT DECONPTE } 
ee EE": WALT 35 
UüGgs RE TURN 
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L'option 5 se réfère à 12 relance des impayés. 


On va encore une fois explorer le fichier.Et rechercher les clients 
débiteurs.En ce c2s on donner2: les renseignements concernant ce 
compte. 


Avant d'écrire ce sous programme nous 21llons suggérer un exercice 


de "BUREAUTIQUE" que vous ferez vous même. 
vous écrirez un autre sous programme,qui sera 2ppelé en c2s de 
compte négatif ( débit j).Ce sous progr2mme ( mettez le p=r exemple 


à l'adresse 12999 rédigeràa =utôm2tiquement 12 lettre de relance. 
Si on =vAit sur l'OXIC une imprimante,celle ci serait 2ctivée d2ns 
ce sous programme, ,et l2 lettre de rel2nce sortirA2it.On AurÂ2it plus 
qu'à l2 glisser €2ns l'enveloppe. 


quand nous équipperons les OXIC,ou 2u roins l'un d'eux,Avec 
une imprimante,il y aura une ordre d'2ctivation,et un ordre de 
dés2ctivation.Pour le moment nous ne les connzissons pas.MAis,à 
titre indic2tif,nous indiquerons comment cel: se passe 2vec un 
APPLE II. 


Un APPLE II possède un certAin nombre de "portes" 
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Ces "portes" s'2ppellent aussi "slots",ce qui veut dire fentes. 
Dans ces c.. connecteurs d'un type particulier on peut 
disposer des CARTES ,qui peuvent être très variées. 

Dans l'APPLE II on 2 sept slots, numérotés de gauche à droite 
de 9 à 7.Le slot sept est réservé à la sortie graphique-couleur, 
quand il y en 2 ure ( auquel cas dans ce slot se trouve une 


carte-couleur,elle même connectée à un téléviseur ou à un moniteur 
Couleur à l'iide d'une prise PERITEL ). 
Le slot zéro est réservé 2ux "cartes l2ng=ge". 


Sur le dessin précédent on = reprsénté l'imprimznte connectée 
à une cAarte enfichée p2r exemple d2ns le SLOT 4. 

Lfimprimante est un PERIPHERIQUE. 
L'ordre PR# 4 va "Activer" le périphérique correspondant au 


"slot" numéro quatre. 

Si cet ordre est inclu dAns le programme,tous les oräres PRINT 
se doublegont d'une impression sur le pÂApier. 

Si on veut fAire cesser cette impression,il f2udr2 consigner 
dans le programme l'odre PR + D qui rebranche l'AaPPLE II 
sur le slot zéro,c'est à dire sur sa "carte langage". 


Sur l'ORIC il y aur2 quelquechose du même tonneau.MAais nous ne 
connzissons p2È25s encore les ordres 24 hoc.L'imprimente se bran 
cher: sur l'une des prises multibroches situées Â2u dos de 
l'spp2reil.On en distingue deux.L'une ser: vraiserblamèement 
affectée 2u lecteur de diskette et l'autre à un périphérique 
comme p2r exemple une imprimAnte. 


Ceci n'est qu'yge p2renthèse.Quand vous écrirez votre sous 
programme 12999 vous ne tiendrez p=s cémpte de cette possibilité 
d'impression.M-=is en szch2nt que cel2 peut exister par l2 suite. 
Ceci dit,si le périphérique étAit un système de synthèse de prrole, 


en ectivènt ce périphérique,l2 machine pourrait 21lors interprèter 
les ordres PRINT comme des mots,et se mettr2it à les énoncer 
à hzute voix.... 


pâr exemple.... 


si122 


Alam À et - ca fn 


Revenons à cette séquence de rel2nce des impÂ2yés 


5 pp PEh RELANCE IMYŸAYES 

Çét# CLS 

Cp 25 PRINT" SONT DE RITEURS rt PRINT 
Sp 1$ FRI-170NC 

Cpug Icc(1)<g THEN PRINT NÉ(1), 

+ CCC): COSU la beS PT EUNT 

ES NEXT 1 | 
Dpéd PRINT APPUYER SUR LA DARRE 
D'ESPACEMENT 

ht GET AË 

633$ RE TUKW 


nice 


Ici nouvelle explor-tion du fichier.MAis il ne s'agit plus 
de chercher quelqu'un.Il faut explorer TOUT le Fichier. Nous 


pouvons alors utiliser une boucle FOR NEXT. 

Si le compte est en négatif ( test ) 12 m2chine donner2 le 

nom du client,son numéro de compte et l'ét2t de son compte CC(I). 
Mais l'ordre d'impression est différent.Les registre sont séparés 
non plus p2r des points virgule,mais par des VIRGULES. 


PRINT NS(z);I ; CE (1) 


mettrait ces objets BOUT A BOUT 


PERTE Le 


Re 
Né) T cc) 


PRINT N#(x),T, CE CA) 


permet une sortie sur trois colonnes : 


- 4 Edd 
DUR AND F4 1746 


DUPONT 23 


C'est une possibilité offerte p2r l'ORIC ( et par 12 
plup2tt des micros ).La capacité est limitée à trois colomnes. 


PRINT &$,T 


Donnerait deux objets ( chaines ou nombres ) sur deux 


Colonnes. 
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Sur L'APPLE II cette cap2cité est limitée à trois colonnes. 
Mais sur l'ORIC il semble bien que l'on puisse Aller plus loin. 


A la ligne 5969 vous trouvez un ordre print et en 5979 
une instruction nouvelle : GET 


Cette instruction GET ressemble à l'instruction INPUT.MAis 


€lle limite l> s2isie à UN SEUL CARACTERE.Qui ser: ici placé 
dans le registre 4$. 

Dans l'exécution,le cours du progr2mme est interrompu,et il y 
a attente de ce c2r2actère.Vous pouvez Alors presser sur d'importe 
quelle touche.L: plus proche et 12 plus simple est 12 b2rre 
d'espacement.MAis vous pourriez =ussi bien 2ppuyer sur 12 
touche Return. 

Le car2ctère " " correspandAnt à là b2rre est 2lors stocké 
dans A$. 

A quoi-ça sert ? 

A rien... sauf que celà: permet d'interrompre le cours du 
progrmme pendant ie temps que l'on veut ( à 12 différence 
d'un WAIT ).Pour faire repartir il suffit d'2ppuyer sur une 
touche.C'est un gAdget très commode. 


Nous 21llons continuer pxr àne =2à2lyse des comptes-clients. 


Egg REM ANALYSE COMPTES -CUENTS 


Epip CLS oo 
6g 28 PRNT VoHDRE DE CLIENTS NC 


(y EETASR 
Ep4s LS 
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Es CS PRINT" VUYLEZ -VOUS : 

ges PRINT A-ACTIF PASSE FRONT 
tt: PRENT 
0 : PRINT 


CL ÉRENT 


gp PRANT 2 
Eu PRINT "3-.- _ 
€p3e PRINT ‘gg. — " : PRINT 
Grip INPUT VITRE CHo\x re 

éug ONCE GoSUD [3 060 (Caro, FD, 600 
Gas RETURN 


Je vous rappelèe que vous 2vez toujours à écrire le progr2mme 


12999 REM LETTRE DE RELANCE 
1299S RETURN 


Le sous programme 6999 propose un sous menu. Nous ne décrirons 
que 12 première option. 


12000 2EV ANALYSE ACTIF/PASSIF 
12010 A=Z : P.=.9 
12020 FOR I = 1 TO NC 


1203D IF CC(I) 9 THEN 4 = 4 + CC(I) 

12040 IF CC(I) g THEN P=P + CC(I) 

12050 NEXT I 

12069 PRINTÉ MONTANT COMPTES CLIENTS: "; as" FM: PRINT 
12070 PRINT"ENSEMNSLE DES IN PAYES : 3; P 5; "F" 
ALLO EET AT 

12444 LETURN 
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Une sconée opfion pourr2it-être : 


2- CLIENTS HABITANT LA FRANCE 


I1 s'agit =lors d'écrire une sous routine d'explorAtion du fichier, 
à travers un FOR NEXT,très simple.Et on signale les noms et 
adresses des gens résidant en France. 


On pouræait tout Aussi bien sélectionner des gens h2bitant 12 
France ,ou un autre pAys et dont les comptes sont positifs ou 
nég2tifs. 
Tout ceci ne représente que des bribes de ce vaste problème 
qu'est la gestion. Il manque beuucoup d'éléments par 2illeurs. 
Dans 12 seconde partie du cours,on évoquera le problème du TRI. 


Pour £finir,rnous 21lohs faire le tour de ces éléments 
de notre MECCANO INFORMATIQUE que nous Aavons déb21llé. 
I1 en reste d'Autres. 


HARD & SoFT 


A DES 


PAPER 
INK- 
RE ETES 


PRINT 
L 


CLEAR 
CHAÎNES VE 
CARACTERES 
N 

PRo SRAMME 
Rk UN 

NEW 

ÉLÈT 

LIST 30 
PE QE dd 
LisT 3#-5p 


END 


lt 9 


SAUVER Un Po mraumme 


SAVE 
Lo AD 
ALGORCTHHE 
|NCREHENTATION 
INCREMENTATION 
BOUCLE S 
STEP 
Cats € 
WAÎT 

INT 


